Programmed Instruction Course 


SYSTEM/360 COBOL 


COBOL Programming Techniques 
Text 


Programmed Instruction Course 


Copies of this publication can be obtained through IBM Branch Offices, 
Address comments concerning the contents of this publication to: 
IBM DPD Education Development, Education Center, Endicott, New York 


© International Business Machines Corporation, 1966 


AIR a NT WE DES TEBE ITI SE RE PS oT | | |||) | 


System/360 COBOL COBOL Programming Techniques 
PREFACE 


The general objective of this book is to teach students techniques 
by which they can make the most effective and efficient use of 
COBOL. Major emphasis is centered on discussions of the ways in 
which fundamental procedural statements are executed, and what 
the programmer can do to cause the most efficient execution of 
these statements. Students learn that the instructions compiled 
for a statement like "ADD A, B, GIVING C" may cause data to be 
not only added, but also moved, converted to a different data 
code, shifted to align decimals, truncated, and edited, to name 
only a few possibilities! These actions depend partly on the way 
in which the programmer has defined the data items and specified 
the processing to be done; students learn how to write entries so 
as to eliminate unnecessary actions, in order to get efficient 
processing while still getting the desired data results. 


The statements which are discussed are: First, the MOVE statement 
and the three ways in which it may be executed -- alphanumeric 
moves, numeric moves, and edit moves; included are the rules for 
using all editing picture characters. Second, arithmetic 
statements, including the ROUNDED and SIZE ERROR options. Third, 
IF statements, emphasizing compound conditional expressions, 
nested IF statements, and the execution of relation tests. 

Fourth, PERFORM statements -- especially the "TIMES", "UNTIL", 

and "VARYING" options. 


Throughout, the text explains how these fundamental statements 

may be applied to typical programming situations. In addition, 

one lesson is devoted to ways of writing program switches in COBOL, 
and two lessons deal with data tables and subscripting. 


To teach COBOL facts, rules, and techniques is not the only aim 
of this book, however. Another aim is to develop good working 
habits -- concern for object program efficiency, and attention to 
details, for instance. A final, and very important, aim is to 
make the student self-sufficient in his future work with COBOL; 
to this end, the student is given many reading assignments in the 
regular COBOL reference manual, so that he will know how to use 
it to find whatever information he may need in the future. 


This is the third in a series of programmed instructions courses 
on System/360 COBOL. The student is expected to have completed 
the previous courses: COBOL Program Fundamentals (text R29-0205 


and reference handbook R29-0206), and Writing Programs in COBOL 
(text R29-0210 and reference handbook R29-0211). 
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It is reasonable to assume that a 
number of improvements and addi- 
tions will be made to COBOL. Every 
effort will be made to insure that 
the improvements and corrections 
will be made in an orderly fashion, 
with due recognition of existing 
users' investments in programming. 
However, this protection can be 
positively assured only by individ- 
ual implementors. 
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Inquiries concerning procedures 
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should be directed to the Executive 
Committee of the Conference on 
Data Systems Languages. 


The authors and copyright holders 
of the copyrighted material used 
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in the COBOL specifications. Such 
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duction and use of COBOL specifi- 
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similar publications. 


Any organization interested in 
reproducing the COBOL report and 
initial specifications in whole or 
in part, using ideas taken from 
this report or utilizing this 
report as the basis for an instruc- 
tion manual or any other purpose 

is free to do so. However, all 
such organizations are requested 
to reproduce this section as part 
of the introduction to the 
document. Those using a short 
passage, as in a book review, are 
requested to mention "COBOL" in 
acknowledgement of the source, but 
need not quote this entire section. 
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STUDENT INSTRUCTIONS 


1. This is the third in a series of programmed instruction courses 
on System/360 COBOL. The preceding courses (COBOL Program 
Fundamentals and Writing Programs in COBOL) are prerequisites to 
this course. 


2. Be sure to read the Preface of this book, which explains the 
overall goal of this course. 


3. Besides this book, you must have: 


@ a System/360 COBOL reference manual. (Use the manual that 
corresponds to the operating system your installation uses. 
For the full Operating System, use IBM Operating System/360 
COBOL Language, Form C28-6516. For Disk or Tape Operating 
System, use IBM System/360 Disk and Tape Operating System, 
COBOL Language Specifications, Form C24-3433., 


® a pad of COBOL program sheets (Form X28-1464). 


6 the reference handbooks you received in the earlier courses 
of this series (Form R29-0206 and R29-0211). 


4. All reading assignments given in this textbook are in your 
reference manual. An assignment will name the topic you are to 
read, but will not give the page numbers in the manual; you are 
expected to look up the topic in the Index of the manual to get 
the page numbers for yourself. Also, you should use the reference 
handbooks from the earlier courses whenever you need to review 
what you studied before. In a few cases, this text will ask you 
to read specific topics in the reference handbooks. 


5. This textbook will be used by other students after you, so do not 
fill in any of the blanks or make any notes in this book. 


6. The format of this book is exactly the same as that used in the 
previous texts of this series. As before, topics of study are 
presented in a series of frames, with most frames requiring you 
to choose an answer or to formulate an answer mentally. The 
correct answers are given right after each question. You should 
use a card or a sheet of paper to cover up the correct answer until 
you have formulated your own answer to a question. 


7. %If the meanings of symbols like brackets and braces (as they are 


used in frames) are fresh in your mind, you may begin Lesson 1; 
otherwise, read "How to Study this Book" on the next page. 
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HOW TO STUDY THIS BOOK 


Each lesson is broken up into a number of frames, which are simply 
convenient instructional steps to be studied in sequence. Most 
frames have two parts: the first part usually asks a question or 
requires you to take some action; the second part gives the 
correct answer to the question. The end of the first part is 
marked by a group of three dots. If the frame asks a question, 
the correct answer is printed on the same page, below the three 
dots. 


As you study each frame, you must use an ordinary sheet of paper 
or a card to hide the correct answer from yourself. You will 
learn best by working out the answers, not by just reading words. 


Start each page by putting your "hider" sheet or card at the top. 
Then slide your sheet down until you uncover a group of three 
dots. This allows you to read the first part of a frame, and to 
formulate your answer to the question or problem it poses. When 
you have your answer clearly in mind, slide the "hider" sheet 
down to the next group of three dots. This reveals the correct 
answer, and also uncovers the first part of the next frame. 
Frames vary in length; a page may contain only one frame, or as 
many as seven frames. 


Your answer to a frame may sometimes be different from the printed 
answer, but it should mean the same. If your answer is wrong, 
study the question again with the correct answer in mind. 


On the whole, the course is composed of reading assignments and 
questions. When a frame gives you a reading assignment, be sure 
to complete the reading before you go on to the next frame. The 
frames that follow a reading assignment may ask questions about 
what you have read, or ask you to apply what you have read; they 
may also provide additional information about the topic. You will 
find instructions, remarks, and the author's opinions printed in 
italics in some frames. 


When you come to a blank in a frame, you are to think of 
One or more words that complete the sentence. The length of the 
blank space is always the same, so it is not a clue to the length 
of the answer. Do not write your answer in the book. 


Some frames present a choice of answers, from which you are to 
select the one best answer. The choices are stacked in braces {}. 


Other frames present a choice of answers, from which you are to 
select all correct answers. All of the choices, more than one 
choice, just one choice, or none of the choices may be correct. 
It is therefore necessary for you to examine every choice. Each 
choice of this kind is enclosed in brackets []. 
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LESSON 1 


MM you already know how to cause data to be moved from one place to 
another in storage. However, you will be able to do an even more 
effective job of using MOVE statements when you have learned what 
happens during a move operation. You will learn that there are 
really three types of moves, and that each type tnvolves a large 
number of dtfferent acttons. Lessons 1, 2, and 3 are devoted to 
this subject. 


ee The first ptece of tnformatton that ts useful to Know tse that 
certain moves are not permitted! That ts, you are not allowed to 
move data from certatn ttems to certatn other items. Your 
reference manual contains a table of all moves, showing whtch 
moves are permitted and whitch are not; take a couple of minutes 
to examine the table, but don't try to memorize the moves that 
are permttted. In succeeding frames we wtll discuss why some 
moves are permitted while others are not, and we will try to 
stmpltfy the table of permisstble moves for study purposes. 


Reading assignment: MOVE statement -- Table of permissible moves 


To find this table, look under "MOVE" in the Index of your 
reference manual. Only examine the table at this time; other 
tnformatton about the MOVE statement will be covered by later 
reading assignments. 


By actual count, there are about equal numbers of Yeses and Noes | 
in the table you have just looked at. Why is it that about half 
Of all possible moves are not legal? A large part of the answer 
to this question lies in the definitions of the classes of items. 
For instance, items classed as "alphabetic" are permitted to 
contain only letters and spaces, whereas items that are "numeric" 
(external decimal, internal decimal, binary, and floating-point) 
may contain only digits. 


: ; . 7 , can 
This would explain why alphabetic source items pes be 
moved to numeric receiving items. 
eee 
cannot 
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RM At the same time, it is plain to see why you are not allowed to 
move numeric source items to alphabetic receiving items. On the 
other hand, items classed as “alphanumeric" may contain all kinds 
of characters -- letters, digits, special characters, or spaces. 


You would expect, then, that [numeric] [alphabetic] items can be 
moved to alphanumeric items. 


BOTH numeric AND alphabetic 


In fact, all except floating-point items (which have a special 
kind of format) can be moved to alphanumeric receiving items. 


Here is a simplified version of the table in the reference manual. 
Only the main kinds of items are included in this version; 
figurative constants and sterling (British currency) items are 
omitted. Also, all numeric items have been lumped together here, 
since they are treated alike (with a minor exception in the case 
of floating-point items). The shaded boxes represent moves that 
are not valid. 


VALID MOVES 


Receiving Item 


Elementary 


Group [Alphanumeric] Alphabetic 


Source Item 


* Whole numbers only, and not floating-point numbers 


(6/66) 2 


ck a 7 a A Re EEE || | REET) 


System/360 COBOL COBOL Programming Techniques 


| 6 | COBOL students sometimes jump to the conclusion that if it is 
legal to move one item to another (say, item A to item B), it is 
also legal to move the items in the other direction (item B to 
item A). Is this conclusion correct? 


No. For example, although it is legal to move a numeric item to 
an alphanumeric item, it is not legal to move an alphanumeric 
item to a numeric item. You can find several other examples as 
well. 


Our simplified table makes it easier to see the patterns of valid 
and invalid moves. It is especially easy to see that only 
source items can be moved to numeric receiving items. 


eee 
numeric 


You may wish to look at the larger table in the reference manual 
to see for yourself that this is an accurate rule. 


BB a "report" item is used to receive numeric data which will be 
edited with spaces or special characters when the data is moved 
into the item. If the number 12345 were moved to a report item, 
the report item might contain $123.45 after the move. 


Can you explain why a report item must not be moved to: 


l. an alphabetic item? 
26 a numeric item? 
3. another report item? 


l. Alphabetic items are not allowed to contain digits and 
special characters. 

2. Numeric items are not allowed to contain special characters. 

3. Report items can receive only numeric data which has not yet 
been edited; moving from one report item to another would 
mean editing data that is already edited. 
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KJ we have been dealing with the four main classes of data items: 
alphanumeric, alphabetic, numeric, and report. If you look back 
at the table of valid moves, you will find that an item's class 
must be considered 


only if it is a group item. 


| oniy if it of whether it is a group item or an elementary “a 
only if it is an elementary item. 


only if it is an elementary item 


EX can you recall what the difference is between group and 
elementary items? 


A group item is made up of smaller items. An elementary item is 

not made up of smaller items. Or stated another way, in the Data 
division a group item is further subdivided, while an elementary 

item is not further subdivided. 


BER our simplified table indicates that all moves are valid in which 


a group item is the [source item] [receiving item]. 


eco 
receiving item 
12 Besides items, we frequently use literals in MOVE statements. 


Here are two examples, the first containing a numeric literal, 
the second a non-numeric literal. 


While literals are not shown on the tables of permissible moves, 
all literals are treated as elementary items. Numeric literals 
are treated as numeric items. Non-numeric literals are treated as 


alphabetic items. 


| alphabetic 3 items. 
report items. 


alphanumeric items 


Thts ts because non-numeric literals, ltke alphanumeric ttems, 
may contain all kinds of characters. 
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Let's apply this information about valid and invalid moves to a 
practical case. Suppose that you are checking a program, and 
you come across this statement in the Procedure division: 


MOVE] DATE Tol invoice 


Can you tell by looking at this statement whether or not it is a 
valid move? 


No, you must find out the level (group or elementary) and class 
(alphanumeric, alphabetic, numeric, or report) of each item. 


ERY You could find this additional information in the division 
of the program. 


Data 


BER carrying this example further, suppose that these are the Data 
division entries that describe DATE and INVOICE-DATE: 


From these entries, we learn that both DATE and INVOICE-DATE 
contain numeric data. We also learn that 


DATE and INVOICE-DATE are both elementary items. 
DATE is an elementary item, but INVOICE-DATE is a group item. 


DATE 1S a group item, but INVOICE-DATE is an elementary item. 
DATE and INVOICE=-DATE are both group items. 


DATE is a group item, but INVOICE-DATE is an elementary item 


(Remember that ttems wtth pietures must be elementary ttems.) 
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ia You can now definitely conclude that the sample move (MOVE DATE 
TO INVOICE-DATE) oe sek a valid move. 


You may refer to the table of permisstble moves tf you wish. 


eee 
. ds not 


A group ttem cannot be moved to an elementary numeric item. 


ERA We will have a little more to say about this particular example 
later tn this lesson. For now, tet's sum up the point tt teaches: 
A move that "looks reasonable" tis not necessarily valid! Whenever 
you are in doubt, refer to the table of permissible moves. 


BER You have also seen that it is quite important to be able to 
identify the class of an elementary item. Most of the time, we 
can do this by looking at the picture of the item. To refresh 
your memory on how to identify an item from its picture, you may 
wish to read the discussion of PICTURE clause, under Item 
Description Entries (Data Division), in the COBOL Program 
Fundamentals reference handbook. 


it Whenever a picture contains the letter A, you can tell that the 


iat, Gi eet igal 


alphabetic 
eee 
alphabetic 
EX Pictures of alphanumeric items always contain the letter ° 
eee 
X 
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21 | Pictures of numeric items contain the digit 9 and may also contain 
S (sign), V (assumed decimal point), and P (assumed position). 


Pictures of report items resemble those of numeric items, in that 
they too may contain the characters 9, V, and P. However, a 
report item's picture must also contain one or more editing symbols, 


such as 
(1) # @& & 
(2) Yee A 
(3) $ . * + 


ee0@ 
(1) report 
(2) alphanumeric 
(3) numeric 
(4) report 
(5) report 
(6) numeric 
(7) alphabetic 
(8) alphanumeric 
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Ez Different classes of ttemsa are moved in dtfferent ways. The 
reference manual briefly outlines some of the main differences. 
While the manual tdenttftes two types of "stmple" moves, we wtll 
find tt eonventent to think in terms of three types; you will 
Learn about thts shortly. 


Reading assignment: MOVE statement 


Note 1: Here tse a ttp on how to read the reference manual. Read 
tt twice! The first time, read through the material fairly 
raptdly, just to get a general idea of what the book is talking 
about. The second time, pay closer attentton to the facts and 
rules whtch the book presents. 


Note 2: If your reference manual contatns tnformatton about two 
opttons of the MOVE statement, read about Optton 1 only. Optton 2 
(the "MOVE CORRESPONDING" optton) appltes to spectal sttuattons, 
and can be used only when the source computer has larger than 
average storage capacity; therefore, we wtll not discuss Optton 2 
tn this book. I belteve that after you have mastered the "stmple" 
MOVE (Optton 1), Optton 2 will seem equally stmple -- and if 
necessary you wtll be able to learn about tt eastly on your own. 


Let me summarize the general idea of what you have just read in 
the manual: The aettons that occur during a move vary somewhat, 
depending on the kind of source ttem and the kind of recetving 
ttem. In thts course, we will talk about three types of moves: 
alphanumeric, numerte, and edtt moves. 
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To help you visualize when each type of move occurs, here is our 
table of valid moves again, this time showing the types of moves: 


A = Alphanumeric 


TYPES OF MOVES N = Numeric 
E = Edit 


Receiving item 


Elementary 
Group {|Alphanumeric| Alphabetic Numeric Report 
Elementary ——_ 
* |D __ 
neport A} AL —ri—“—__Ch 


* Whole numbers only, and not floating-point numbers 


Source Item 


P\> 
> 


P\b\|p 


The type of move that occurs in nearly all permissible moves 
is . 


alphanumeric 


A numeric move takes place when [a group numeric item] 
[an elementary numeric item] is moved to [a group numeric item] 
[an elementary numeric item]. 


ONLY when an elementary numeric item is moved to an elementary 
numeric item. 


All group tteme are treated as alphanumeric, even though they 
may contain numeric data. 
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An edit move occurs only when an item is moved to an 
item. 


elementary numeric to elementary report 


29° We wtll study each type of move tn detatl. The A's dominate the 
table, so tt seems reasonable to begin with the alphanumeric type 
of move. Happtly, this type also tnvolves the fewest actions -- 
and therefore the fewest rules to learn. The remainder of this 
lesson is devoted to the rules that govern the aetton of alpha- 
numerite moves. Numeric moves are the subject of Lesson 2, and 
edtt moves are discussed in Lesson 3. 


Alphanumeric move. There are just three rules: 


Rule 1. Left justification. Data is aligned at the left end of 
the receiving item. 


Rule 2. Receiving item longer than source item. Any extra 


positions at the right end of the receiving item are filled with 
spaces (blanks). 


Rule 3. Receiving item shorter than source item. After the 


receiving item is filled, no more characters are moved from the 
source item. 


EM After an alphanumeric move, the data in the receiving item will 
look exactly like the data in the source item, provided that 


the source item is shorter than the receiving item. 


| the receiving item is shorter than the source item. 
the receiving item is the same length as the source item. 


the receiving item is the same length as the source item. 


E>2 suppose that the value of the source item is TFX and the picture 
of the receiving item is A(5). After the move, the value of the 
receiving item will be F 


TFXbb (Throughout this book, little b's are used to represent 
blanks -- spaces -- in the value of an item.) 
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Assume that the picture of a receiving item is X(6). What will 
be the value of this item following a move if the value of the’ 
source item is 


(1) KANSAS 
(2) OHIO 
(3) bOHIO 
eee 
(1) KANSAS 
(2) OHIObb 
(3) bOHIOb 


"Left gusttftcatton" does not tnelude eltmination of left-hand 
blanks. The tntttal blank in "bOHIO" ts regarded as the first 
character in the source ttem, and tt ts moved to the leftmost 
posttton of the recetving ttem. 


The contents of a receiving item before a move do not affect the 
actions that occur during the move. 


Say that the value 96823 is moved to an item whose picture is X(8). 
Which choice below correctly shows the contents of the item after 
the move -- (1) if the previous value of the item was 00000000 and 
(2) if the previous value was 12345678? 


(1) 96823000 and (2) 96 823678 
(1) 00096823 and (2) 12396823 
(1) 96823bbb and (2) 9682 3bbb 
(1) 96823000 and (2) 96823000 


(1) 96823bbb and (2) 96 82 3bbb 


When the receiving item is not large enough to hold all of the 
characters from the source item, the extra characters are not 
moved. We say that the remaining characters in the source item 
are truncated. | 


"to cut off" 
"Truncate" means "to exchange" 
“to erase" 


e008 
"to cut off" 


Truncatton does not ehange the source item's value tn any way. 
(The contents of the source ttem are not altered by any type of 
move.) 
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If the name SMITH were moved to an item whose picture is AA, 
which characters would be truncated? 


ITH 


Note that neither the compiler nor the computer considers 
truneation to be an error. Both assume that the programmer knows 
what he its dotng. In the example given in this frame, presumably 
the programmer wants only the first two letters of a name for 
some reason. 


Take a case in which BEARINGSbbbb is the value of the source 
item. On a piece of scratch paper, jot down the value of the 
receiving item after the move, if the receiving items picture is: 


(1) xX(6) 
(2) X(12) 
(3) X(18) 


(1)  BEARIN 
(2) BEARINGSbbbb 
(3) BEARINGSbbbbbbbbbb 


An alphanumeric move can be "reversed" tf destred. That ts, you 
ean cause the data to be right-justtfted (altgned at the rtght end 
of the receiving ttem). Accordingly, truncation or filling with 
blanks then takes place at the left end of the data. 

Such a reversed move will oceur tf the deseription of the 


recetving ttem (in the Data dtvision) tneludes a JUSTIFIED RIGHT 
eLlause. 


Reading assignment: JUSTIFIED RIGHT clause 
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It ts not ltkely that you will find much use for the right- 
justtfted move, so we will not spend much time on it. I think I 
owe you one example of where you might be able to use such a move, 
though. 


Imagine that you are preparing a customer bill, at the bottom of 
which you want to print three lines that look like thts: 


GROSS AMOUNT $505.30 
DISCOUNT $4.41 
NET AMOUNT $201.19 


In thts case, the words that identify the amounts are "justifted 
right", This result can be accomplished in more than one way, of 
course. Ustng the JUSTIFIED RIGHT elause is an easy way to do tt. 


We begtn by defining a stngle ttem to which the words will be 
moved. This item description would be part of a record 
desertptton. We make the item large enough to contain the longest 
string of characters (GROSSDAMOUNT). And we specify that data 
moved to this ttem ts to be right-justified. 


At appropriate potnts during processing, these procedural state- 
ments are acted on: 


When the ltterals are moved to the item, they will be right- 
justified. 


13 


System/360 COBOL COBOL Programming Techniques 


Another programmer, faced with the problem described in the 
preceding frame, defined AMOUNT-ID like this: 


Was this programmer's technique a correct solution to this 
problem? 


Yes 


In fact, this solutton ts probably the better one, because the 
programmer himself has right-justified the literals onee and for 


all, tnstead of having the computer do tt each ttme the job ts 
run. 


ZEB you will recall that the normal alphanumeric move does not 
eliminate left-hand (leading) blanks. Similarly, the reversed 
alphanumeric move does not eliminate right-hand (trailing) blanks. 


To illustrate, suppose that a receiving item is defined as 
JUSTIFIED RIGHT. Its picture is X(10). What will this item 
contain after a move if the value of the source item is: 


(1) CARROTSbbb 
(2) PEASbb 


(1) CARROTSbbb 
(2) bbbbPEASbb 
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LESSON 2 


This tesson deals with the numeric type of move. The numeric 
move ts significantly different from the alphanumeric move. The 
matin difference ts that the numeric move ts coneerned about the 
meaning of the data tt transfers, whereas the alphanumerte move 
doesn't bother about the data's meaning. 


Let me explain. To the alphanumeric move, data consists of a 
string of bytes, each byte containing a bunch of bits. Those bits 
have a meaning that depends on the data code; a etring of bits 
means one thing tf the data code ts binary, and something 
completely different tf the eode ts packed-decimal. In COBOL 
terms, ttems can have different usage. However, the alphanumeric 
move transfers data without regard for the usage of the tteme. 
Thus, tf a computational (binary) item were moved to an alpha- 
numerte display (BCD) ttem, the data would not be converted from 
one data code to the other. 


By contrast, tf the binary ttem had been moved to a numeric 
dtsplay ttem, a numerte move would have been performed, and the 
data would have been converted from binary to BCD. The numeric 
move pays attentton not only to the usage of the source and 
recetving ttema, but also to their signs and the locations of 
thetr decimal points. 


Numeric move. 


Rule 1. Data code conversion. The data is converted, if required, 


to match the usage of the receiving item. 


Stnee converston depends entirely upon the usage of the source 
ttem and the recetving ttem, tt would be wise to review what usage 
means. 


Reading assignment: USAGE clause 


You may also find tt useful to re-read the information on the 
USAGE clause in the COBOL Program Fundamentals reference handbook. 
You will find tt under Item Desertpttion Entries in the section on 
the Data division. 
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EZ Translate the COBOL usage terms below into the terms that are 


normally used to describe the data codes of the System/360. 


(1) COMPUTATIONAL- 3 
(2) COMPUTATIONAL 
(3) DISPLAY 


(1) COMPUTATIONAL-3: "packed decimal" or "internal decimal" 

(2) COMPUTATIONAL: "binary" 

(3) DISPLAY: "BCD" (binary-coded decimal), “EBCDIC" (extended 
binary-coded decimal interchange code), or “external 
decimal" 


Conversion is done by instructions generated by the compiler, and 
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usually takes place in a work area set aside by the compiler. 
There is a price to be paid for conversion, then, in terms of 
time and storage space. When possible, conversion should be 

avoided. 


Which of the statements below is the best rule for avoiding 
conversion during a move? 


Make sure that the lengths of the source and receiving 
items are equal. 

Try to keep the usage of the source and receiving items 
the same. 

Do not allow the source and receiving items to have unlike 
Signs. 


Try to keep the usage of the source and receiving items the same. 
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ZY Keeping the usage of items the same is good advice if you are 
designing the formats of data records. But suppose that the 
records have already been designed, and your job is just to get 
them processed. Sooner or later you may run into a situation 
like this: an input record contains a packed decimal item which 
1s to be moved to four BCD items at various points in a procedure. 
If you simply write four moves, the same item is going to be 
converted from internal to external decimal four times! 


You can avoid such unnecessary conversions by moving the data 
first to an intermediate area whose usage is the same as that of 
the final receiving fields. Then move from the intermediate area 
to the receiving fields. In this way, the data is converted only 
once, at the time it is moved to the intermediate item. 


For the situation described above, which of these entries defines 
an intermediate item with the desired usage? 


Both (1) and (2) are acceptable, since they define external 
decimal items. 


47 | Converston ts only one of the actions that may go on during a 
numerte move. The rematning acttons depend on the ptetures of 
the source and receiving ttems. Before we go on to additional 
numerte move rules, read what the manual has to say about pictures 
of numeric ttems. 


Reading assignment: PICTURE clause, Numeric-form option 
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Numeric move. 


Rule 2. Operational signs. If the receiving item's picture 
contains an S, a sign iS developed. Otherwise, bits that 
represent "no sign" are put into the receiving item. 


The option of either developing a sign or developing "no sign" 
bits applies to external decimal (BCD) and packed decimal items. 
It does not apply to binary items. Why not? 


Binary (COMPUTATIONAL) items always have a sign. In their case, 
there is no such thing as a "no sign" bit-configuration. There- 
fore, an S is always required in the pictures of binary items. 


To develop "no sign" bits requires the compiler to generate 
additional instructions in the object program. Therefore, it is 
best to have an S in the picture, except where the receiving item 
definitely must not have a sign. 


You probably would not want the item to have a sign if its 
contents are to be fused as a factor in an arithmetic calculation] 
[printed on a report] [written on magnetic tape] 

[tested by an IF statement]. 


eee 
printed on a report 


When a etgned number ts printed, the stgn btts are treated as the 
zone bits of an alphabetie character, so a letter rather than a 
digtt te printed in the units positton. (It ts posstble to geta 
sign indtcator to print -- for instance, a plus stgn or minus 
stgn, "CR" or "DB" ~- but thts tse one of the funettons of the edit 
move whitch you will study later.) You mtght also want to have no 
sign tf the data were punched in a card, where the stgn would 
result in a zone overpunch in the low-order position. 


Numeric move. 
Rule 3. Alignment. The assumed decimal point in the value of 
the source item is aligned with the assumed decimal point in the 
receiving item. 
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In numerte ttems, dectmal points are always assumed. They are 


not stored as actual characters in the item. Because the letter 
V ts used to show the location of assumed decimal points in 
pictures, we will use a little "v" in this book to show the 
assumed dectmal points within data values, for example "1v375", 


Where is the assumed decimal point located? If there is a Vin 
an item's picture, such as S999V99, then the answer is obvious. 
But suppose there is no V, as in the pictures shown below. For 
each of these pictures, tell where the assumed decimal point is. 


(1) s9999 
(2) SPPP9(8) 
(3) S$99P(5) 


(1) This is a whole number (integer). The assumed decimal point 
is at the end of the number. The picture of this item might 
also have been written as S9999V. 

(2) The Ps represent "assumed positions" and are used to locate 
the assumed decimal point away from the actual number. So 
in this example, the assumed decimal point is located in 
front of the first P. The picture might also have been 
written as SVPPP9(8). 

(3) The assumed decimal point is located after the last P. 

The picture might have been written as S99P(5)V or S99PPPPPV. 


In this book, to represent the situations discussed above, we 
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will use ltttle "p's" for assumed positions. For instance, tf an 
ttem's pteture ts PPP999, and the item actually contains the 
digits 235, we will show the ttem's value ae "vppp235". When it 
comes to tntegers, we will show their value wtthout a "v"; for 
example, "50" and not "S0v", 


Numeric literals must enter our thinking too. Unless they are 
integers, literals are written on program sheets with real decimal 
points, like .2635, 4.1796, etc. It is important to realize that 
these decimal points are not stored as separate characters when 
the literals are put into items in storage. 


So the value of the literal 3.1416 is really , and the 
literal .75 is treated as . 
eco 


3v1416;: v75 
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Numeric move. When the decimal points are aligned. 


Rule 4. Extra positions in receiving item. Any extra positions, 


at either or both ends of the receiving item, are filled with 
zeros. 


We can visualize this action graphtcally. Suppose that the 
pteture of the receiving item ts 999V99, We can show this item 
as a string of ftve boxes: 

V 


Pt | tT 


Suppose that the source value its 27v5. The assumed decimal potnt 
of this value ts aligned wtth the dectmal point of the recetving 
ttem. 


The extra posittons are filled with zeros. Thts ts the final 


result: 
V 
of2t7is}o 


56 | If the source value is 95v4 and the receiving picture is 999V99, 
the value of the receiving item following a numeric move will be 


eee 
095v40 


yA Assume source value is 6v5 and receiving picture is 9V999 in a 
numeric move. The result will be ‘ 


6v500 


Take one more numeric move. Source value: 25. Receiving 
picture: 9999V99. Result: . 


0025v00 
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After this MOVE statement is executed, the value of QUANTITY will 
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be - (The picture of QUANTITY is 99V999.) 


01v000 


When there are different numbers of decimal places in the source 
and receiving items, as in the above example, the compiler will 
instruct the computer to shift the data over the appropriate 
number of positions. Naturally, the object program will be more 
efficient if we can do without such shift instructions; we can 
avoid them by making sure that the source and receiving items 
have the same number of decimal places. 


On a COBOL program sheet, rewrite the MOVE statement shown in the 
preceding frame so that it will not be necessary for the computer 
to shift the source value during the move. 


Numeric move. When the decimal points are aligned... 


Rule 5. Truncation. Any digits for which there is no room in 
the receiving item are truncated. Truncation can occur at either 
or both ends. 


This rule means that you can lose digits during a move -- and 
they can be very significant digits. Consider the MOVE statement 
below. 


If a picture of AMOUNT is S999V99, the value of AMOUNT after the 
move will be : 


000v00 
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Although losing significant digits is probably not what you had 
in mind, the computer will do exactly what your COBOL program has 
indicated. Every now and then, to be sure, you may want to drop 
certain parts of an item. Imagine that you have an item whose 
picture is S9999V999. 


(1) What picture would you give to a receiving item if you 
wanted to move only the whole number and not the fraction? 
(These might be dollars-and-cents, and you want to move 
only the whole dollars.) 


(2) What picture would you give to the receiving item if you 
wanted to move only the fraction? 


(3) What picture would you give to the receiving item if you 
wanted to move the entire number, but with only two decimal 
places instead of three? 


(1) $9999 
(2) Ssv999 
(3) S$9999V99 


Let's carry thts example a step further. Suppose that what you 
want to move ts just one digtt, the leftmost digit, whtch 
represents the number of thousands. Thus, tf the value of our 
ttem ts 7263v05, all you want to move ts the digit ?. 


It should be clear that tf you made the picture of the recetving 
ttem just 9, the dtgtt you would move ts the units digit: 3. It 
ts necessary to introduce three "assumed postttons" into the 
pteture tn order to obtain the desired alignment. The correct 
pteture for thts problem would be 9PPP (or 9PPPV). This pieture 
desertbes a one-digit ttem, you will recall, because no storage 
space ts reserved for Ps in a pteture. 


Assume that a source value is 025936v45, and you wish to move 
only the thousands (025). The receiving item picture must be 


999PPPV 
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Za Now that you have seen the effect of having Ps in the receiving 


(6/66) 


picture, consider how Ps affect a move when they are in the source 
picture. There, they serve as "assumed zeros". 


Work these exercises out on scratch paper: 
(1) The source value is 256pppv, and the receiving picture is 


9(7)V99. After the move, the receiving item will contain 


(2) The source value is vpppp797, and the receiving picture is 
9V9(6). After the move, the receiving item will contain 


(1) 0256000v00 
(2) 0v000079 


You have studted all of the rules that govern acttons during a 
numerte move. Before we go on to the edit move, though, I want 
to ptek up a loose thread from way back in Lesson 1. When we 
were discussing the fact that some moves are valid while others 
are not, we looked at a sample MOVE statement (MOVE DATE TO 
INVOICE-DATE) and deetded that the move was not valtd, even 
though both ttems contained numerte data. The reason for this 
was that DATE happened to be a group ttem, while INVOICE-DATE 
was an elementary item. 


Now tn fact, these data ttems can be redefined in such a way as 

to make a valid move possible! For instance, tt ts possible to 
redefine the group ttem (DATE) as an elementary numeric item. 

And, for that matter, the number item (INVOICE-DATE) can be 
redefined as an alphanumerte ttem. Depending on how we define 

the ttems, we would cause etther a numeric move or an alphanumeric 
move! 


Thts tdea goes well beyond the bounds of this little problem. 

The key potnt ts that you, the programmer, define the data items, 
and depending on how you define them, you may make moves possible 
or tmposstble. Also, you determine whether an alphanumerie or 

a numerte move takes place. In general, you define an item once, 
and you dectde, for tnstance, whether to make the picture of a 


number 9(5) or X(5). But the ability to redefine items is a 


powerful tool tn your bag of COBOL programming techniques, because 


tt permits you to have two or more definitions for the same item. 


Reading assignment: REDEFINES clause 
Also, re-read the summary of the REDEFINES clause in the COBOL 
Program Fundamentals reference handbook (under Item Deseriptton 
Entries in the Data Division section). 
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66 | These were the Data division entries you read in Lesson 1 when 
we decided that it was not legal to MOVE DATE TO INVOICE-DATE: 


Take a COBOL program sheet, and on it write an entry that 
redefines DATE as an elementary numeric item named CURRENT-DATE. 


a The entry you have just written would appear 


on the line below 03 DATE. 


on the line above 03 DATE. 
on the line below 04 YEAR, PICTURE 99. 


on the line below 04 YEAR, PICTURE 99. 


Ey Does the entry you wrote make it valid to MOVE DATE TO INVOICE-DATE? 


No, since DATE is still a group item. However, it does make it 
valid to MOVE CURRENT-DATE TO INVOICE-DATE. 


69 | If we wanted to cause an alphanumeric instead of a numeric move, 
we would redefine INVOICE-DATE as an alphanumeric item. On your 
program sheet, write this redefinition. Name the new item 
R~INVOICE-DATE. 
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Two valid MOVE statements can be written to move the date into 
R-INVOICE-DATE. On the program sheet, write both of those 
statements. 


All of the redefining that we have been doing has been predicated 
on the notion that the original definittons were necessary for 
some other processing being done with those ttems. Otherwtse, it 
would not have made sense to go to the trouble of redefining the 
ttems, and we could have just ehanged the pteture of INVOICE-DATE 
from 9(6) to X(6), to make MOVE DATE TO INVOICE-DATE a valid 
move. 


The point ts that redefinition makes sense only tf two or more 
definittons of an ttem are really necessary, for tnetance, when 
an ttem wtll be processed in two or more dtfferent ways. Suppose 
that we have an ttem ealled ITEM-A; at one votnt tn a procedure, 
a number must be moved from an alphanumerte item to ITEM-A; 

Later in the procedure, the number must be moved from ITEM-A to 
an elementary numeric ttem. 


ITEM-A seems to be caught in the middle. If we define ITEM-A as 
an alphanumeric item, the second move will not be valid. If we 
define ITEM-A as a numeric item, the first move will not be valid. 
Based on what we know about thts problem, tt certainly appears 
that ITEM-A must be both alphanumeric and numeric! Thts 18 a 
legitimate place to employ redeftnitton. 


On a program sheet, define this item and then redefine it. First, 
define it as a 5-character alphanumeric item named ITEM-Al; then, 
redefine it as ITEM-A2, a 5-digit numeric item. Both times, the 
level number is 02. (As you have read, you cannot change the 
level number when you redefine an item.) 
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LESSON 3 


As we get tnto edtt moves, you wtll dtsecover that they resemble 
numeric moves in many ways. (These two types of moves, as you 
know, are treated as one type in the reference manual.) There 

are baste similarities when itt comes to alignment of data by 
deetmal pointe, truncation, zero fill, and the treatment of signs. 


But the pteturesof the recetving items (report items) are very 
different, and can become extremely complicated. It is these 
ptetures that we wtll spend most of our time on during thts 
lesson. Instead of dealing wtth the rules that govern edit moves, 
you will learn the rules for causing certain kinds of edtting to 
occur -- that ts, you will learn to write report pictures. 


On the whole, you will work wtth pictures in two ways. First, 
gtven the pteture of the receiving ttem, and the source value, 
you will be asked to determine what the result of the move would 
be. Second, given the source value and the desired result, you 
will formulate the necessary picture for the recetving item. 


Alphanumeric and alphabetic data cannot be edited using the edit 
move. An edit move occurs only when an elementary item is 
moved to an elementary item. 


numeric; report 


to 


ea a report item. 


Numeric data is edited when it is moved 


to 


"Editing" means [deleting] [replacing] [inserting] characters in 
an item. 


ALL of these may be involved in editing, although they may not be 
all required in every edit move. 
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Here is an example of an edit move. When the source value 
00762401 is moved to an item whose picture is $222,222.99, the 
result is$bb7,624.01. (Remember, the little "b's" represent blank 
spaces in an item's value; nothing would print where the b's are 
shown. ) 


Compare the source value with the result. What characters are 
deleted? What characters were inserted? 


The high-order (leading) zeros were deleted. A dollar sign, 
comma, and decimal point were inserted. 


Here ts how editing ts actually done: 


1. The compiler uses the report picture you write in a program 
to make the "pattern" of characters which the System/360 needs 
for editing. The pattern ts stored as a constant in the object 
program. The compiler also reserves a work area of storage in 
whteh the editing will take place. 


2. During the execution of the move, first the pattern ts moved 
to the work area. Then the data from the source ttem is moved to 
the work area and edited by the computer. Finally, the edtted 
result ts moved from the work area to the recetving ttem. 


This explanation may seem brief, but tt ts the whole story, short 
of getting into the technicalities of tnternal operattons of the 
System/360 -- about whtech, as COBOL programmers, we frankly 
couldn't care less. 


78 | Here are three questions asked by COBOL students. See if you can 
answer thein, based on the explanation given in the preceding 
frame. | 


(1) Is a report picture put into the object program? 

(2) If the picture is stored in the receiving item, won't it be 
destroyed as soon as some data is moved into it? 

(3) Is the editing done in the receiving item? 


The answer to all three questions is NO. (1) The COBOL report 
picture is converted into a System/360 edit pattern. (2) The 
picture itself is not around at all during the execution of the 
object program; its equivalent, the edit pattern, is stored else- 
where with other constants until it is needed, and is not stored 
in the receiving item. (3) Editing is done in a work area, not 
in the receiving item; only the edited result is moved to the 
receiving item. 
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EZ] we see that the way in which the object program edits the data tis 
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based on the ptcture we write for the report item. Fach editing 
pteture character causes one or more actions to take place during 
editing. Therefore, literally thousands of combinations of actions 
are posstble. While we will study all of the pieture characters, 
don't expect us to study all of the possible combinations of 
characters! 


Reading assignment: PICTURE clause, Report-form option 


Important: This reading asstgnment contains a great deal of 
detailed information. Don't try to absorb it all at once! 
Instead, merely scan the material at this time, to get an idea of 
the kinds of characters that can appear in report pictures. As we 
study the characters in detatl -- and we will do this one, two, or 
three characters at a time -- go back to the reference manual to 
re-read the tnformatiton about those characters carefully. 


Edit rule 1. To move digits just as in a numeric move, use 
picture characters "9", a and "P™ the same as in pictures of 
numeric items. "S" cannot be used. 


All ftve of the acttons we discussed for numeric moves can occur 
tn the edit move: 


1. Conversion. Remember that the usage of report items ts 
always DISPLAY. Therefore, we wtll always wind up wtth the edited 
result tn BCD (external dectmal), regardless of the usage of the 
source ttem. 


2. No stgn. There cannot be an S in a report pteture, so 
"no stgn" btts wtll be developed in the edited result. 


3. Alignment by decimal points. 
4. Zero fill tn any extra poatttons at etther or both ends. 


5 Truncatton of dtgits for which there ts no room, at either 


ae both ends. 
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EIN In report pictures, the character "9" defines a position into 
which a digit is to be placed without being changed in any way. 
As an illustration, the picture 99,999 calls for the insertion of 
a comma into a number, but indicates that the digits themselves 
are not to be changed in any way. So, if the source value were 
00065, the edited result would be ‘ 


00,065 


We say that "9" defines a digit position in the picture. Later 
you will learn that the characters "Z", "*", and in certain cases, 
"s", "+", and "=" also define digit positions. 


By contrast, "P" and "V" do not define positions into which digits 
are put. As you already know, these characters are used to : 


ee0e 
align the data 

ERR Edit rule 2. To insert an actual decimal point, write "." in the 
picture. This takes the place of an assumed decimal point in 
aligning the data. A picture cannot contain both a "." anda "V". 


The character "." is a real character which actually occupies a 
byte of storage in the edited result. Whereas the picture 999V99 


defines an item that is bytes long, the picture 999.99 
defines an item that is bytes long. 

eee 
5; 6 


A report item's picture is 999.99; what will the edited results 
' be if the source value is (1) 123v45, (2) 123, (3) lv23, and 
(4) 1234v567? 


(1) 123.45 (2) 123.00 (3) 001.23 (4) 234.56 
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Edit rule 3. To suppress leading zeros and replace them with 
blanks or asterisks, write "Z" or "*" in each digit position in 
which you want suppression. A picture cannot contain both an 
"*" anda "Zz". 


In most cases, the zero suppression stops when you get to the 
end of the Zs or when the first significant digit is reached. 
Suppose that 2222 is the picture of a receiving item; what will 
be the edited result is the source value is (1) 0500, (2) 0002, 
(3) 0000? 


(1) b500 (2) bbb2 (3) bbbb 


Zs and 9s (or *s and 9s) can both appear in a picture, but a Z or 
an * cannot appear anywhere to the right of a 9. This means that 
you cannot get zero suppression to start and stop repeatedly, or 
to occur in the middle of an item; zero suppression is strictly 
for high-order zeros. 


On scratch paper, write a picture that defines five digit 
positions, with zero suppression in the two leftmost positions. 


22999 


Write a report picture which will produce the result bbbb.23 from 
a source value 0000v23. 


ZZZZ.99 


What report picture will produce the result *****,09 from 
00000v09? 


kkRKK OO 


Asterisks used in this way are often called "check protection" 
symbols. They are printed on checks to make it difficult to 
tnerease the amount by typing addittonal digits. 
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OT | Some special rules apply to pictures that call for zero suppression 
and also contain a decimal point. First of all, you can write Zs 
or *s to the right of the decimal point; however, zero suppression 
stops at the decimal point unless the source value 15S zero. 


On scratch paper, write down what the edited result would be in 
each of these cases: 


Report Picture Source Value Edited Result 
(1) ZZ4Z.22 000v03 2 
(2) Z2ZZ.99 000v03 z 
(3) ZLVZZZ 00vOOl € 
(4) 229.9 00v5 ? 
eee 


(1) bbb.03 (2) bbb.03 (3) bbv001 (4) bbO.5 


Here is a second special rule that involves decimal points: Only 
one kind of digit position character is allowed to appear to the 
right of the decimal point. For example, a Z may appear to the 
right of a decimal point only if all digit positions are 
represented by Zs. 


Decide which of these pictures are right and which are wrong: 


(1) 22.9999 


(2) 222.299 
(3) eRe aX 


(4) 9999.22 


Pictures (1) and (3) are correct. Picture (2) is wrong because 
it violates the rule stated in this frame. Picture (4) violates 
the earlier rule that Zs or *s may not appear anywhere to the 
right of a 9. 


Ek} This is the last special rule about decimal points: If zero 
suppression is called for in all digit positions, and the source 
value is zero, all of the zeros are suppressed and the decimal 
point is suppressed too. 


This rule means that when the source value is zero, the picture 
ZZZ.ZZ will produce an edited result of 


bbb.bb 
bbb. 00 
bbbbbb 


eee 
bbbbbb 
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94 | Take careful note of that last special rule. There is an 
important difference in the end result depending on whether or 
not the source value is zero. With a receiving picture of 2(5).22Z, 


and a source value of 00v00, the edited result is - With the 
Same receiving picture, and a source value of 00v05, the result 
is ° 

ee0e 


bbbbbbbb; bbbbb.05 


The same action applies to pictures that have *s in all digit 
positions, except of course, that all of the suppressed 
characters -- including the suppressed decimal point -- are 
replaced by asterisks. If the receiving item's picture is 
ReKKK KK, and the source value is zero, the result will be : 


KReKKKREKEK 


ca Edit Rule 4. To insert commas, spaces, or zeros, write "," where 


you want a comma, "B" where you want a blank space, and "0" where 
you want a zero. 


[YA Apply this rule in the case of a social security number. The 
source value is a string of nine digits, such as 300926354. You 
want to insert blank spaces after the third and fifth digits, to 
get 300b92b6354 as the edited result. The picture needed to 
accomplish this editing is ;. 


ee0 
999B99B9999 
98 Commas are the insertion characters you will undoubtedly use most 


often. Write a picture which will insert commas into the source 
value 9285406 to produce 9,285,406 as the result. 


9,999,999 
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cx Write a picture that will do the following things: (a) edit a 
seven-digit number; (b) insert a decimal point between the dollars 
and the cents; (c) insert a comma between thousands and hundreds 
of dollars; (d) suppress zeros up to the decimal point, and 
replace them with blanks. For example, given the source value 
02307v95, the edited result should be b2,307.95. 


ZZ,42Z2.99 


Sometimes inserted commas and zeros are not significant 
characters. If the report picture calls for zero suppression, 

the inserted characters are suppressed and replaced along with the 
leading zeros of the source value. For example, if the picture 

is *,*** and the source value is 0009, the result will be ****9 
(not *,**9). 


For each source value listed below, figure out the edited result 
1f 222,222.22 is the picture of the receiving item. 


Source Value Edited Result 
(1) 002800v03 ? 
(2) 000529v6l ? 
(3) 000000V07 ? 
(4) Q00000v00 ? 
ee0@ 


(1) bb2,800.03 
(2) bbbb529.61 
(3) bbbbbbb.07 
(4) bbbbbbbbbb 


ERE Keep in mind that the inserted commas are suppressed only if zero 
suppression is called for by the report picture. Assume that 
0062v25 is the source value; how will the result differ if the 
report picture is 9,999.99 as opposed to Z,22Z9.99? 


eee 
Result with first picture: 0,062.25 
Result with second picture: bbb62.25 
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Edit rule 5. To put a fixed dollar sign to the left of an amount, 
write where the dollar sign is to appear. 


When we speak of a "fixed" dollar sign, we mean one that stays in 
One position. (Later you will study about "floating" dollar signs.) 


On scratch paper, write the edited results in these cases: 


Report Picture Source Value Edited Result 
(1) $2,222.99 3001v02 ? 
(2) $2,222.99 0982v75 ? 
(3) $2,222.22 Q000v04 ? 
ee0e 


(1) $3,001.02 (2) $bb982.75 (3) $bbbbb. 04 


Take the case where all digit positions in a picture are 
represented by Zs or *s. You have learned that in such a case, 
when the source value is zero, not only the zeros but also the 
commas and decimal point are suppressed. It would be pretty silly 
to print a fixed dollar sign in this situation, so the dollar sign 
is also suppressed. 


What will the edited results be if the source value is zero and 
the report picture is (1) $222 or (2) $2Z,22Z2,22? 


(1) bbbb (2) bbbbbbbbb 


If the report picture is $***,** and the source value is zero, 
the edited result will be a string of 


6 asterisks 


6s asterisks 
7 asterisks 


7 asterisks (Both the dollar sign and the decimal point are 
replaced by *s.) 
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Observe the difference in edited results when the source value is 
zero and the report picture is (1) $2,222.99 and (2) $2,222.22. 
Write down the two results on scratch paper. 


(1) Sbbbbb.00 (2) bbbbbbbbb 


Incidentally, another way of achieving a result of all-blanks when 
the source value ts zero ts to write a BLANK WHEN ZERO clause in 
the desertptton of the report ttem. 


Reading assignment: BLANK WHEN ZERO clause. (Also referred to 
in the manual simply as the BLANK clause.) 


These two ways of defining a report ttem would produce tdentical 
edited results: 


The BLANK WHEN ZERO method might give sltghtly more efftetent 
aetton when the source value ts likely to be zero fairly frequently. 
This elause causes the value of the source ttem to be tested before 
any editing ts done; tf the value ts zero, no editing ts done, and 
the receiving item ts just blanked out. The tmportant thing, 
though, is that the end result ts the same etther way you do tt. 


Edit rule 6. To identify negative values with CR, DB, or - 
(but to have no identification for positive values), write "CR" 
or "DB" at the right end of the picture, or write "~" as either 
the first or last character of the picture. 


To identify a value with + when it is positive and - when it is 
negative, write "+" as either the first or last character of the 
picture. 
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GRR rhe sign indicators covered by this rule are "fixed" indicators. 
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That tse, the characters rematn in the posttton you specify. 
(Later, we wtll discuss "floating" plus and minus stgns.) 


Only one kind of sign indication can be used in a picture: CR or 
DB or - or +. Which of these is the only one that can be used to 
identify positive values? 


CR, DB, and - all identify negative values. When one of these is 
used in a picture, and the source value is positive, what sign 
identification appears in the edited result? 


None. Blanks appear where the sign indicator would have been for 
a negative value. (One blank in the case of the minus sign; two 
blanks for CR or DB, since each of these occupies two character 
positions.) 


If + is used ina picture, and the source value is negative, what 
Sign identification appears in the edited result? 


Let's compare the results when + and - are used in pictures. Jot 
down the edited result on scratch paper. 


Edited result when Edited result when 
Source value report picture is +999 report picture is -999 
(1) 005 ? ? 
(2) -~613 ? ? 
(3) 000 ? ? 


When picture is +999: (1) +005 (2) -613 (3) bO00 
When picture is -999: (1) b005 (2) -613 (3) bOO00 


In COBOL, you will recall, zero is neither positive nor negative, 
so there ts never any stgn indtcation for a zero value. 
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GREY What will be the edited results if the report picture is 2222- 
and the source value is (1) -0265 and (2) 0053? 


(1) b265- (2) bb53b 


Write a single report picture that will produce these edited 
results (from different source values): 


$1,005.67bbb 
Sbbb35.00bCR 
Sbbbbb. 50bbb 


(Notice that a blank has been inserted between the amount and 
the sign indication.) 


$Z,Z22Z2.99BCR (or $2,222. ZZBCR) 


GRR Edit rule 7. To "float" a dollar sign, plus sign, or minus sign 


up to the first Significant digit, and at the same time, to 


replace leading non-significant characters with blanks: 


ais Write a string of "$" signs to get a floating dollar sign. 

b. Write a string of "+" signs to get a floating + sign when 
the value is positive, and a floating - sign when the 
value is negative. 

Ce Write a string of "-" signs to get a floating - sign when 
the value is negative, but no sign indicator when the 
value is positive. 


A picture can contain only one of these "floating strings". 


RA To begin wtth, we wtll talk about floating dollar signs only; 
however, everything we will say also appltes to floating plus 
stgns and minus stgns. Let's take a moment to look at two columns 
of ftgures, just to see the difference between amounts printed 
with a fixed dollar stgn and those printed wtth a floating dollar 


sign. 
$25,000.00 $25,000.00 
$ 250.00 $250.00 
$ wd $.25 
eee 
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EAE To get a fixed dollar sign and zero suppression for a four-digit 


120 
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number, we can write this report picture: $2222. 


To get a floating dollar sign and zero suppression for the same 
number, we write this report picture: S$SSSS. 


Not all of the dollar signs in the “floating string" have the 
same significance, as illustrated below. 


All remaining $s in a string 


represent digit positions. 
Fe 


The first $ ina string $ $ $ $ $ 

does not represent a 

digit position. a 
Thus, the rule for a floating string is that the string must 
contain one extra $ in addition to a $ for each digit position. 


This means that a report item whose picture is S$$SSSS$ is large 
enough to hold up to digits. 


eee 
five 
The largest amount that can be edited with the picture $$$ 
is : 

eee 


99 


Insertion characters (, B 0) can be put into a floating string. 
The dollar sign "floats through" the insertion characters to get 
right next to the first significant digit. For instance, a report 
picture might be $$,S$$; if the value moved to this item were 
0362, the edited result would be = 


bb$362 (The dollar sign has floated through to replace the comma.) 
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wae A picture with a $-string doesn't have to be composed entirely 
of dollar signs. You can end the S-string at the rightmost 
position to which you want the $ to float. The remaining digit 
positions must then be represented by 9s. 


For instance, the picture $$,$$$.99 allows the $ to float up to 
the decimal point only. With this picture, a source value of 
0000v05 would be edited like this: bbbbbS.05 


How would you change this picture in order to make the result 
bbbb$0.05? 


$$,$$9.99 


The preceding frame pointed out that any digit positions to the 
right of a floating string must be represented by 9s. Zs and *s, 
then, are not allowed. But let's say that you are editing a 
dollars-and-cents amount with a floating dollar sign, and you 
want the edited result to be all blanks when the amount is zero. 
You must not write $$$$.ZZ, but there are two other things that 
you can do. 


One is to write $$$$.99 as the report picture, and specify 
BLANK WHEN ZERO. The second is a special extension of the 
floating string designed just for this purpose: write dollar 
Signs in all positions to the right of the decimal point -- 
SS$S$.$S. 


In this special picture, with all digit positions represented by 
dollar signs, the $ never actually floats to the right of the 
decimal point. If the source value is less than one dollar, the 
$ floats up to the decimal point. If the source value is zero, 
the edited result is all blanks. 


To see if you understand this action, figure out what the edited 
results will be in the four cases below. In each case, $$$,$S$$.$5 
is the picture of the receiving item. 


Source Value Edited Result 
(1) 02000v00 ? 
(2) 00030v00 ? 
(3) 00000v04 ? 
(4) o00000Vv00 ? 
eee 


(1) b$2,000.00 (2) bbbbS$30.00 (3) bbbbbb$.04 (4) bbbbbbbbbb 
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Floating strings of plus or minus signs are like strings of 
dollar signs in all respects. 


Suppose that the picture of a source item is S9(4); write the 
picture of a receiving item which will identify the sign of the 
item with a floating + if the value is positive and a floating - 
if the value is negative. 


++,+++ or +++++ or +(5) 


What is wrong with this picture: -,---.99? 


The picture is correct in every respect, except that it doesn't 
make sense to have only one minus sign to the left of the comma. 
The first symbol ina floating string is an extra symbol which 
does not represent a digit position. As it stands, the report 
item will accommodate hundreds of dollars, and might better have 


been written as ----.99; however, if the item was intended to 
hold thousands of dollars, then --,---.99 would be the correct 
picture. 


Suppose that --- is the picture of a receiving item. What will 
be the edited results when the source values below are moved to 
the item? 


Source Value Edited Result 
(1) 02 ? 
(2) 00 ? 
(3) -50 ? 
(4) -105 ? 
ee0e 


(1) bb2 (2) bbb (3) -50 (4) b-5 


The fourth source value ts a little sneaky. I ineluded tt to 
remind you that truncation oceurs when the source value is ltonger 
than the recetving item. This receiving item has positions for 
two digits, and the assumed decimal point ts at its right end. 
Only 05 ts moved to the ttem; then the zero ts suppressed, and 
the - ts floated up to the 5. 
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BRYA you have now learned about all of the editing pteture characters, 
but tt would not be fatr to leave the subject of editing wtthout 
at least a brtef discusston of two toptes: ftrst, how to edit 
alphabetic or alphanumerite data, and second, how to edit numeric 
data when no permisstble report picture suits your needs. 


Actually, these two toptes are just two aspects of one programming 
techntque. The technique ts to "assemble" the destred result by 
using a sertes of moves. 


A typical instance in which such assembling must be done is when 
a name that looks like this in an input record: 
“DRUNKENBURGERbbbbbbbCS", must look like this on a printed report: 
"C. S. DRUNKENBURGERbbbbbbb". To handle this, we define an area 
in working storage, with spaces and periods in the appropriate 
positions, and with room for the initials and last name. Three 
moves are then needed to put the initials and last name where we 
want them, and a fourth move transfers the edited name to the 
output record. 


Let's take it step by step. This is how the name has been defined 
in the input record: 


On a program sheet, write the entries to define a working-storage 
record called EDITED-NAME, with INITIAL-1l in the first position, 
followed by a period and a space; then INITIAL-2 in the fourth 
position, another period and space; finally 20 postions for SURNAME. 
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Now write the MOVE statements to put the pieces of the name into 
their proper places in the working-storage record. (To avoid 
complicating the problem, let's assume that everybody has two 
initials.) 


Finally, write a MOVE statement to transfer the edited name to 
CUSTOMER-NAME. (Assume that CUSTOMER-NAME is a 26=position 
alphanumeric item in the output record, which has already been 
defined.) 


CT wowel Telileistr lint iti falel Prof Tif it! 
|| || Mowlel |sielcoo jini tial! trio! | iINiir aL lel.) 
‘it | Molvel ILiaisiTi-iaiMe! Tio! [SURINAME 

|| || Movie} [ell |TiElb-Niamel [Til [clus tlom anaes OCT 


W448 Now that you have the hang of it, try applying the technique to 
editing numeric data in a way which no single report picture will 
allow. Specifically, the problem is to edit a date in this way: 
b4/b5/66 (when the source value is 040566). 


A stde comment: Begtnners sometimes get the impression that they 
ean do absolutely anything with report ptetures, and are tempted 
to tnvent new pictures -- such as 29/29/99 for thts problem. 

Thts ts not a legal pteture, and the compiler will reject tt. 
Your best bet ts to strictly follow the rules you have studied -- 
the rules gtven tn the reference manual. Take the attitude that 
tf the manual doesn't say you can do tt, you ean't do tt! 


For this problem, our approach will be to define a working-storage 
record called TODAYS-DATE, composed of two positions called MO, 
then one position containing a /, two more positions called DA, 
another /, and then two final positions called YR. The pictures 
of MO and DA must both call for zero suppression in their left 
positions. Write the entries for this record on a program sheet. 
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This is the data which we are to edit by moving it into our 
working-storage area. On the coding sheet, write the necessary 
MOVE statements. 


OVE! IMO 
OVE DIA 
| 


The same baste technique could have been used to edit the date 
with hyphens (for example, b4-bi-66). 


1131 | From these little problems, you ean see that tt ts more cumbersome 
to edit tnformation as soon as you get out of the range of the 
"butlt-in" editing eapabilittes of the language. It ts certainly 
easter to wrtte a sitngle MOVE statement to a report item, and get 
the edtttng done that way! 


This suggests that tt might be wise to re-evaluate any editing 
requirements that fall outstde the range of built-in language 
capabilittes. In the ease of the date-editing problem you just 
worked on, we might ask, ts tt necessary for this report to have 
the date edited ltke "4/ 5/66" or "4 ~ 5-66"? Or, would 

"04 08 66" serve our purposes just as well? If the latter format 
will do, we can insert the blanks in one stmple edit move, by 
making 99B99B99 the pteture of the recetving ttem. 
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LESSON 4 


BERR in this lesson, you will study arithmetic operattons tn detail. 
Although "arithmette" may seem like it should be enttrely different 
from "data moving and edtting", you wtll discover that many of the 
aettons that go on are the same. In fact, one of the main steps 
tn executing an arithmetic statement consists of making either a 
numerte move or an edtt movel So don't purge your mind of what 
you have learned about moves in the first three lessons; also, 
don't hesitate to go back over the material you have previously 
studied -- etther in this textbook or in the reference manual -- 
tf you find that you have forgotten some of it. 


Reading assignment: Arithmetic statements 


Read through the entire section on arithmetie tn the manual once, 
brtefly. Later in thts lesson, you will be instructed to re-read 
the tnformattion about eertain elauses with greater care and 
concentration. 


Thts book deals only with artithmetie done on ttems whose usage is 
DISPLAY, COMPUTATIONAL, or COMPUTATIONAL-3. In other words, you 
will not be taught the details of "floating-point" arithmetic, 
whitch tnvolves COMPUTATIONAL-1 and COMPUTATIONAL-2 items. This 
topte was omitted mainly because comparatively few COBOL users 
employ floating-point ttems, and also because tt would tend to 
take us away from our matn subject. You see, the question of 
whether or not to use floating-point items ts mainly a system 
destgn questton, and doesn't affect the way arithmetic statements 
are written tn COBOL. 
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Four major acttons occur during the execution of an arithmetic 
statement. This chart shows what the four acttons are and the 
sequence tn whitch they occur. During this lesson, you wtll study 
these acttons one at a time. 


1. The data values are 
prepared for calculation. 


2. Arawresult is calculated 


4 


in a work area. 


3. If desired, the size of 
the raw result is tested. 


4. The raw result is moved 
to the finished result item. 


Arithmetic action 1. The data values are prepared for calculation. 
If necessary, the usage of the values is converted to a data code 


in which calculation is possible. Also, the sign bits are changed 
in certain cases. 
ee0e 


Arithmetic operations can be performed with certain kinds of 
items, and with no other kinds. Specifically, computations may 
be done using [elementary numeric items] 

[elementary alphanumeric items] [report items] [group items] 
[numeric literals] [non-numeric literals]. 


ONLY elementary numeric items and numeric literals 


To this COBOL restriction, we must add a fact about the System/360. 
The computer can execute arithmetic operations either on binary 
items or on packed-decimal items. Therefore, in order to execute 
an arithmetic statement, it is definitely necessary to convert 
the data code of elementary numeric items whose uSage is : 


DISPLAY (that is, BCD or external decimal) 
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The computer can perform computations on two packed-decimal items 


(6/66) 


or on two binary items. Therefore, the preparation of an 
external-decimal (display) item is not the only time conversion 
is necessary. Another time would be when one item is packed 
decimal and the other is binary; one of these items must be 
converted to the code of the other before computation can begin. 


The only case in which both items must be converted is when 


both are binary. 

one is external decimal, and the other is binary. 

one is external decimal, and the other is packed decimal. 
both are external decimal. 

both are packed decimal. 

one is packed decimal, and the other is binary. 


ee0 
both are external decimal 


(Both ttems will be converted to packed-decimal format.) 


Imagine that this statement appears in a COBOL program: 


(1) Is it permissible to add these items? Why? 

(2) Will it be necessary to convert the data code of either 
item? If so, which item, and to what data code must it 
be converted? 


(1) The items can be added because both are elementary numeric 
items. 

(2) FLOAT-TOTAL must be converted since it is a display (BCD) 
item; it will be converted to packed decimal because that 
is the data code of CHECK-AMOUNT. 
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ERT although we typically say that an "item" is converted, it would 
be more accurate to say that the data from an item is converted 
to a different code. It works like this: the data is moved from 
the item to a work area, and converted there; then, the arithmetic 
operation is done using the data in the work area. The contents 
of the original data item remain unchanged. 


The work area, by the way, is set up by the compiler, not by the 
programmer. And the compiler also generates all of the necessary 
instructions to cause conversion. 


Note carefully that the converted data is used only for one 
Calculation. The next data conversion that is required will 
probably be done in the same work area, erasing the previously- 
converted data. 


Check your understanding of these ideas by applying them to this 
example. 


If STOCK-COUNT is an external-decimal item, and EXPECTED-BALANCE 
is a packed-decimal item, the data from STOCK-COUNT is moved to a 
work area in which it is converted to packed-decimal. Then 
subtraction is done, using the data from 


STOCK-COUNT 
the work area 


the work area 


Suppose that STOCK-COUNT is involved in two later calculations in 
other procedures of the same program. What will happen when the 
later calculations are performed? 


The data from STOCK-COUNT will be converted again each 
time it is used in a calculation. 

The converted data from STOCK-COUNT will be saved in the 
work area for use in the later calculations. 

The compiler will generate instructions to bypass the later 
calculations, to avoid using STOCK-COUNT in more than 
one computation. 


The data from STOCK-COUNT will be converted again each time it 
is used in a calculation. 
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We generally want to prevent repeated conversions. We can do 
this by making certain that the items we use in calculations have 
the proper usage. In the example given in the preceding frames, 
repeated conversions would not have been necessary if the usage 
of the "stock count" data had been COMPUTATIONAL-3 (packed 
decimal). 


There are two ways that this can be done. First, by redesigning 
the input record to have the data in packed-decimal format when 
it enters storage for processing. This makes it unnecessary to 
convert the data when it is used in calculations; however, it may 
be necessary to convert the data to DISPLAY format elsewhere in 
the program, if the data is printed or punched. The system 
designer or programmer has,to evaluate the overall processing 
requirements to figure outWwhether the data will more often be 
used in calculations, in which case COMPUTATIONAL-3 usage is 
better; or more often printed, in which case DISPLAY usage is the 
right choice. 


Whereas the first way of avoiding conversion is a system design 
problem, the second way is a programming technique. This way is 
to define an item in working storage whose usage is 
COMPUTATIONAL~3, to MOVE the data to that item (thereby causing 
it to be converted), and thereafter to use the working-storage 
item in calculations of the data. In this way, the data is 
converted only once, no matter how many times it is used in 
calculations. 


This programming technique is an efficient way of treating an 
external-decimal item, 


if the item is used in two or more calculations. 


it tne i that the item is used in one calculation a 
no matter how many calculations the item is used in. 


if the item is used in two or more calculations 


In the STOCK-COUNT example, we might previously have written the 
statement "MOVE STOCK-COUNT TO CALC-STOCK-COUNT", with 
CALC-STOCK-COUNT defined as a COMPUTATIONAL-3 item. To calculate 
using this data, we would later have written "SUBTRACT FROM 
EXPECTED-BALANCE GIVING LOSS", 


Covet 


CALC-STOCK-~ BALANCE 
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Based on the picture of an item that is to be used in a 
calculation, the compiler may also generate instructions to alter 
its sign. Signs are always considered by the computer in 
arithmetic operations; part of the computer's job, of course, is 
to figure out the correct sign of a result. 


The sign of a data value will be altered if there is no S in the 
item's picture. Special "no sign" bits will replace the 
operational sign bits in this case. The “no sign" bits are 
interpreted as positive during calculations. 


One reason you might omit the S from an item's picture would be 
to use the “absolute value" of the item in calculations. The 
absolute value of an item is its numerical value disregarding the 
Sign. Suppose an item's value is -826.036, but we want to treat 
it as 826.036 in a calculation; we accomplish this by making the 
picture of the item 


9 (6) 
S999V999 
999V999 
NO-S999V999 


eee 
999V999 


You wtll reeall that S can be omitted from ptectures of DISPLAY 
and COMPUTATIONAL-3 ttems, but not COMPUTATIONAL tteme. 


Take the opposite situation: you know that an item has no sign, 
so you want to avoid the unnecessary insertion of "no sign" bits. 
The picture you might write for such an item is 


S9(5) 
9(5) 
99999 
eee 
S9 (5) 
By putting an S in the ptcture, we itn effect say to the comptler, 
"Use the stgn bits -- or no-stgn bits -- which thie ttem already 


econtatne." By omttting the S, we tn effect say, "Change the stgn 
bits of this ttem's value to no-stgn". 
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ERY Arithmetic action 2. A _raw result is calculatec in a work area. 


147 
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At this step, the actual adding, subtracting, multiplying, 
dividing, or exponentiating is done. The "raw" result is the 
numerical outcome of the calculation, such as 000306v4294. 
(The "finished" result in this case might be $306.43.) 


The compiler sets up the work areas needed for calculations. 
(You do not define these areas in the Working-Storage section.) 


The compiler makes the work area large enough to develop the 
result you want -- based on the operation (addition, subtraction, 
multiplication, division, or exponentiation) and the pictures of 
the items. For example, when two numbers, both having the picture 
S999V99, are added, the work area need only contain six positions; 
but if the same numbers are multiplied, a ten-position work area 
is needed. 


Furthermore, the size of the work area is adjusted to take account 
of any shifting of data values that is needed to align decimal 
points. If the pictures of three numbers to be added together 
were 99V99, 9V9999, and 9999V9, the work area would be 

positions long. 


ee0e 
nine 


This may be easter for you to see when values are gtven to each 
data ttem and the numbers are altgned, ltke thts: 


20v75 
8v0036 

+ 998lv2 
10014v95 36 


In our dtscusston of numerte moves, I pointed out that altgnment 
by dectmal potnts requires shtfting when the numbers do not have 
the same number of dectmal places. The same point applies to 
artthmetic. If you are concerned about saving storage space and 
making your programs as efftetent as posstble, try to have the 
same number of dectmal places in values that are added or 
subtracted. 
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Arithmetic action 3. If desired, the size of the raw result is 


15] 
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tested. A test can be made to determine whether all of the 
significant integral digits will fit into the finished result 
item. The test is made only if an ON SIZE ERROR clause follows 
the arithmetic statement. 


If all significant integral digits of the raw result will fit into 
the finished result item, the fourth arithmetic action is 
performed -- the raw result is moved to the finished result item. 
If they will not fit, the raw result is not moved; instead, the 
execution of the arithmetic statement is suspended, and control 
goes to the statements that are written in the SIZE ERROR clause. 


I wtll explatn what all this means, but before I do, carefully 
re-read what the manual says about the SIZE ERROR test. 


Reading assignment: Arithmetic statements, SIZE ERROR option 


The integral digits of a number are those that appear in the 
integral places of the number. 


Let's define what we mean by “integral places". Decimal places 


are the ones to the right of the actual or assumed decimal point. 
Integral places are the ones to the of the decimal point. 


left 


5 
An item whose picture is 999V99 has 13 integral places. 
2 


Suppose the value of an item is 3924v00895. The integral digits 
are , 


3924 
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In the value 000306v2, which integral digits are significant? 
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Which are not significant? 


Significant 
integral digits 


000306v2 


insignificant 
integral digits 


If the raw result 001002v05 were moved to a finished result item, 
whose picture is 999V99, would any significant integral digits be 
lost? 


Yes, the 1 in the thousands place would be truncated along with 
the two insignificant zeros. The finished result after the move 
would be 002v05! 


The SIZE ERROR test determines whether all stgntfteant integral 
digtts tn the raw result wtll fit into the finished result ttems. 
Nottece that only the tntegral places are tested, not the dectmal 
places. Thts ts because tt ts normal to drop exeess decimal 
digits; for tnstance, tf an employee's net earnings are calculated 
to be $175.98270635, he will be patd $175.98. But tt generally 
tsn't considered quite fatr to drop off digits at the other end 

of the number! 


It may be wtse also for me to spell out what I mean by the 
"fintshed result" item. I mean the ttem in whtech the result will 
appear after the execution of an artthmettie statement has been 
completed. 


the raw result is moved to the 


The test is made — 


after 
finished result item. 


eco 
before 
If an error exists, the result i moved. 
is not 
eee 
is not 
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What is the fallacy in this reasoning: 


"It doesn't do a bit of good to test for a size error during the 
execution of a statement such as ADD A TO B. As soon as A and B 
are added, the original value of B is changed -- and it's too 
late then to find out that the sum won't fit into B." 


This argument assumes that ADD A TO B is executed by adding the 
value of A directly into item B. This is not the case, however; 
A and B are added together ina work area. The raw result is 
tested in the work area for a size error condition. If the sum 
is too large to fit into B, it will not be moved into B; there- 
fore, the original values of both A and B remain unchanged. 


Ika feturn to your reference manual. This time look at the formate of the 
artthmette statements to see where the SIZE ERROR clause ts written. 


iy Rewrite this statement on a program sheet. Add to it a SIZE ERROR 
clause which will cause a branch to OVERSIZE-SUM if a size error 
occurs. : 
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ERSN This chart shows the flow of control through an arithmetic 
sentence that eontatns a SIZE ERROR clause. 


Data values are 
prepared for calculation 


Raw result is calculated 
in work area 


YES statements after 
SIZE ERROR, up to 
the period, are acted on 


Result is moved 
to finished result item 


Next COBOL sentence 
is acted on, unless 

one of the preceding 
statements caused 

a branch or 


Is acted on stopped the run 


Next COBOL sentence 


Nottece that the logte of a SIZE ERROR clause ts ltke that of an 
IF sentence. In parttcular, nottce the tmportance of terminating 
the statements that follow the words "SIZE ERROR" with a pertod. 
Thus, an artthmetie "statement" must tn facet be a sentence when 
the SIZE ERROR optton ts specified. 


It ts posstble that you will not find much use for size error 
testing tn your programs. After all, the test ts not needed if 
you have allowed enough room in the finished result item; for 
tnstance, tf two three-digit numbers are to be added, the result 
cannot posstbly exceed four digits -- so tf the fintshed result 
ts put tnto a four-digit item, there ts no need for a size error 
test. It would be folly to wrtte unnecessary size error tests, 
of course, since extra tnstructtons are generated in the object 
program each ttme a SIZE ERROR clause appears. 


Also, tt ts unwise to put a lot of SIZE ERROR elauses into a 
program to catch programming errors in mtsealeulating the stzes 
of results. This would be an expensive substitute for thorough 
testing and debugging of the program! 
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Here ts a case tn which the programmer ts probably justtftied tin 
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using the stze error test. Four numbers (A, B, C, and D) are to 
be multtiplted to get thetr product, X. A, By, C, and D each 
eontatn stx digits; that ts, the ptcture of each one ts S9(6). 
The picture of X ts S9(18), whieh ts the largest allowable size 
for a numeric item. 


If all of the faetors contained the largest posstble values, the 
produet would exceed 18 digits -- tt would be 24 digits tong. 

The programmer does not expect a product longer than 18 dtgits, 
because when some factors are very large, the others are supposed 
to bevery small. 


A size error tn this case would be a cheek on the valtdtty of the 
tnput data. In the event of a stze error, the programmer wtll 
have the computer perform an analysis routtne to find out whtch 
factors are not reasonable. So he has wrttten: 


| ClO mplultiel Ix] f=! [al fe fel Tx! [cl 


ERROR, Plemrolm FlacrolR-a 


The alternative would be to analyze the factors before multtplytng 
them -- but that would increase the time for ecaleculating X every 
time. And an error will rarely, tf ever, occur. 


The stze error test ts the only test that can be performed durtng 
an artthmette caleulatton. It ts buttt right tnto the arithmette 
aettons. Many other tests are posstble, though, tf they are done 
prior to an artthmette statement or after tt. For example, after 
an artthmetie result has been caleulated, tt ean be tested to see 
tf tts value ts zero. Oritf its sitgn is plus or minus. Or tf it 
ts less than or greater than establtshed limits. Tests such as 

these are simply written as separate IF sentences in the procedure. 
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BYSH Arithmetic action 4. The raw result is moved from the work area 
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ry 7 ee ee 
to the finished result item. The move will be a numeric move if 
OIC eae eT ama cea RR Taro re acer cae eee anal acinar ¢ e ° * 

the receiving item iS numeric, or an edit move if the receiving 
item is a report item. 


Let me emphastze that you do not wrtte a MOVE statement to get 
the result into the finished result ttem. The comptler generates 


the tnstructtons that are needed to get the result into that ttem. 


As you learned in the preceding course, there are nine basic 
formats for arithmetic statements. Four of those formats are 
illustrated below. In each of these statements, the finished 
result item is 


In each statement shown in the preceding frame, items A and B are 
both used in the calculation, so both items must be elementary 
numeric items. For each statement, therefore, when the result is 
moved from a work area to the finished result item, 

[a numeric move] [an edit move] will occur. 


a numeric move 


5/ 
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These statements illustrate the remaining five formats. 


UBITRIAlcIT A gl) cl. FIOM Jpl.! eulviin 
ULITHPLYy| al lply| [Bit ielt EERE 
iMublel al uniol fl Ie LV Re eECCECIET et 


In each statement, the finished result item is R. In none of 
these cases is R used in the calculation; it may therefore be 
either an elementary numeric item or an elementary report item. 
The move from the work area to the finished result will be 

{a numeric move] [an edit move]. 


EITHER a numeric move OR an edit move (depending on the 
receiving item) 


It ts tmportant for you to have the effect of the GIVING elause 
well in mind. At this time, re-read the brief discussion of 
GIVING tn the reference manual. 


Reading assignment: Arithmetic statements, GIVING option 


Conversion may be required when the result is moved to the 
finished result item. This is true for both a numeric move and 
an edit move. Remember that the raw result will be either binary 
or packed-decimal. Conversion occurs when the usage of the 
finished result item is different from that of the raw result. 


Suppose the raw result is a packed-decimal number. The finished 
result item is described by the entry below. Will conversion 
occur? 


TT Voal | blelriecrifolw TTT TTT TT TT TTT TT 
To PPP Het etioet! lsbleblat lebbdelohtan TH 


OIN 


No (COMPUTATIONAL-3 usage means packed-decimal data format.) 
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Conversion of the raw result will always occur when the finished 
result item is [an elementary numeric item] 
[an elementary report item]. 


an elementary report item (All report items have DISPLAY usage.) 


The conversion of the raw result may represent the second or 
third time conversion has been done in the process of executing 
an arithmetic statement. 


This chart illustrates a process in which two conversions take 
place. The arithmetic statement being executed is "ADD X TO Y". 


ITEM X HS 
external decimal 
packed-decimal data (BCD) data 


Data from Y is converted 1 
to packed decimal. 


WORK 
AREA 


2 packed-decimal data 3 


Data from X is added 


to the data from Y Raw result is converted 
to get the raw result to external decimal 
in packed decimal. when it is moved to Y. 


The programmer might also have written "ADD Y TO X". During the 
execution of this statement, 


no conversion 
one conversion 
two conversions 
three conversions 


would have been required. 


one conversion (The data from Y would have to be converted to 
packed-decimal in order to add it to the data from X; but the raw 
result would not have to be converted because the finished result 
item, X, is a packed-decimal item.) 


SY 
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wee As you know, other actions may take place during the move to the 
finished result item. For one thing, a sign may be generated, 
corresponding to the sign of the result, or "no sign" bits may be 
placed in the result. Whether a sign or "no sign" bits are 
generated depends on . 


whether there is an S in the picture of the finished result item 


wW4Am Decimal alignment is another action during the move, and as a 
result of decimal alignment, truncation or zero-fill (or both) 
may also occur. 


Suppose that the raw result is 877v627594. What will the finished 
result be if the picture of the finished result item is 
(1) 2,222.99 and (2) S9(5)V99? 


(1) bb877.62 (2) 00877v62 (In both cases there is truncation 
Of low order digits; in the second case, there is also zero-fill 
of the high order positions.) 


In the example given in the preceding frame, notice that the 
extra decimal places are just dropped, and not rounded off to the 
nearest penny. If the programmer had wanted to, he could have 
caused the raw result to be rounded before it was moved to the 
finished result item. "Rounded" means that the rightmost digit 
to be moved to the finished result item is increased by 1 if the 
digit to the right of it in the raw result is 5 or greater. 


A raw result is 04v3819. The programmer has specified that the 
result is to be rounded. What will the finished result be if the 
picture of the finished result item is (1) 99 (2) 99.9 (3) 99.99 
(4) 99.999 (5) 99.9999? 


(1) 04 (2) 04.4 (3) 04.38 (4) 04.382 (5) 04.3819 


In the preceding frame, the fifth picture contains just as many 
decimal places as the raw result. Thus, there is no digit to the 
right of the rightmost digit that will be moved. The finished 
result is the same as the raw result -- no rounding is possible. 
This situation illustrates that you should specify a rounded 
result only if there are extra digits at the right end of the 
raw result which will be when the result is moved to the 
finished result item. 


truncated (dropped) 
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It ts very easy to speetfy that the fintshed result ts to be 
rounded, 


Reading assignment: Arithmetic statements, ROUNDED option 


Shown below are two sets of entries. Which set of entries 
indicates the correct way to specify a rounded result -- or are 
both sets of entries correct? 


(2) 


Entry set (1) is correct. Entry set (2) is definitely not correct. 


BEYY carefully examine the formats of all arithmetic statements in the 
reference manual. The ROUNDED option can be used 


in all arithmetic statements except COMPUTE statements. 


in arithmetic statements that contain a GIVING clause. 
in all arithmetic statements. 


in all arithmetic statements 
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BRIN In the reference manual, also observe where the word ROUNDED is 
written. 
ROUNDED is always written 


just ahead of the ON SIZE ERROR clause. 


) ae the end of the arithmetic statement. | 
right after the name of the finished result item. 


right after the name of the finished result item. 


Here are two arithmetic statements which call for the same 
calculation. On a program sheet, rewrite these statements, adding 
ROUNDED in the correct place in each statement. 


an 


$ 
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LESSON 5 


Our next topie ts "conditton tests". Here you will revtew some 
things you have learned about IF sentences in the earlier courses 
of thts sertes, and then go on to learn about "eompound" conditions 
and "nested" IF statements. 


Before you proceed, carefully review the formats of IF sentences 
and the five test econdtttons. These are summarized in the section 
on Procedure Diviston Entry Formats in the Writing Programs in 
COBOL referenee handbook. 


BEZ9 check your ability to write both basic kinds of IF sentences. 
First, write a sentence which will cause the value of MAJORS to 
be increased by 1 provided that the value of AGE is more than 20. 
(Assume that the items called MAJORS and AGE have already been 
defined correctly in the Data division.) Use a program sheet for 
this. 


On the same program sheet, write another IF sentence. This time, 
add 1 to MINORS if AGE is equal to or less than 20, in addition 
to adding 1 to MAJORS if AGE is greater than 20. 


Tile! Valelel BY Tolol,| lalobol fa] Trlol Maliomisle [TTT TTT TTT 
CET TT teluistel.| lai! i! frlol Miuinoials|.| | TTT TTT TTT 
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Like most dectstons, the sentence you were asked to write tn the 
previous frame might have been written tn various ways. In fact, 
the same processtng could have been done in three IF sentences: 


Part of a programmer's task, though, ts to reduce a procedure to 
tts most stmple and efftetent sequence. It ts less efftetent, of 
eourse, to ask the computer to make three tests (as spectfted 
above) tnstead of one test (as in the solutton printed in the 
preceding frame). 


It will be worth your time, also, to review the flow of eontrol 
through IF sentences. If you are uneertatn about tit, re-read 


Flow of Control tn the COBOL Program Fundamentals referenee hand- 
book. 


When we chart the flow of control, we generally indicate the test 
conditton and the procedural statements in the sequence in whtch 
they appear tn the IF sentence. The "true" econditton ts 
represented as a continuation of the flow of eontrol, while 
"false" ts shown as a bypassing of eertain statements. Below ts 
an IF sentence and tts equtvalent flowchart, to illustrate the 
potnt. 


AMOUNT IS 
NEGATIVE 


ADD RESERVE — 
QUANTITY TO AMOUNT 


mext sentence _ J 
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1189 Whenever control comes to the word ELSE or OTHERWISE, it 
tmmedtately goes on to the next sentence. Control flows to the 
statement after ELSE or OTHERWISE from the previous "false" 


eondttton. 


FALSE 


TRUE 


WRITE TITLE 
AFTER SKIP 


WRITE TRANSACTION 
AFTER SP-2 


next sentence 
eee 


BEY 4 statement ig an IF sentence may call for a branch. To avoid 
eluttering up the flowchart wtth too many ltnes, this ts how a 


braneh wtll be tndteated tn thts book. 


next sentence 
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F191 This te the flowchart of a procedure which asstgns a grade of "B" 
to a student whose score falls tnto the 85-92 range. Ona 
program sheet, write the procedural statements that correspond to 
the flowchart. (Assume that all names used in the chart have 
already been defined.) 


FALSE 


SCORE< 85 


TRUE 
TRUE 


The two tests made in the flowchart above can be combined into a 
single test condition, called a "compound" condttton. Actually, 
the computer would still make two tests, but we would be able to 
combine them into one IF sentence. 


Reading assignment: Compound conditions 
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A compound condition is produced simply by tying together two or 
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more test conditions with the words AND or OR. (The word NOT can 
be used as usual to give the opposite meaning to a condition.) 


Compound conditions are written after the word IF. For example, 
IF ORDER < 500 AND REMAINDER > 100, GO TO FILL-ORDER. (Notice 
that the word IF is not repeated after the word AND.) 


In this example, suppose that the value of ORDER happens to be 
450, and the value of REMAINDER is 90; with these values, control 


will 


will = go to PILL-ORDER. | 


will not (The word AND means that both of the test conditions must 
be true; the value of REMAINDER must be more than 100). 


The word OR means that the compound condition is true if either 
test condition is true. When the sentence below is acted on, 

suppose that both test conditions are true -- R-CODE is equal to 
3, and R-NUMBER and P-NUMBER are unequal; in this event, control 


Bebe 


will not go to TOTALS. 


COCR lobe = sole RU NoMelele Wis ok TTT 
Titty | elolulale| rio} jpl-iluiMBlelr},! iclo! trol irioitjaluis..| | | | 


will (A compound condition containing OR is true if one test 
condition, or the other, or both are true.) 
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BIT3 This flowchart shows how our earlier problem of assigning a "B" 


grade could be solved using a compound condition. Write the IF 
sentence that corresponds to the chart. 


SCORE IS 
ABOVE 84 
BUT 
BELOW 93 


MOVE 'B' 
TO GRADE 


next sentence 


FALSE 


EEY3 vere is another aspect of the grading problem. Write an IF 


sentence using a compound condition to cause the testing and 
branching described in the next paragraph. 


"The value of SCORE is not valid when it is lower than 50. And 
a SCORE that is higher than 100 is also invalid. When a student's 


score is invalid, the program must branch to the procedure named 
INVALID-SCORE". 
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He eee ee ee te ob eicurt eea teusceet ce 


One programmer wrote the following IF sentence, as his answer to 
the problem in the preceding frame. He found that it didn't work. 
Can you explain why? 


TTT ill slclolriel slo! [ainlol Tsicloinlel (Sl iolol, TT TTT TTT 
Lita || elo} fro! iniviaiiifol-lsicloiriel.| || tt ttt 


This sentence puts the computer into the logically absurd position 
of testing to see whether a number is simultaneously less than 50 
and greater than 100. Both conditions cannot possibly occur at 
the same time, so the compound condition will always be false. 


Although compound conditions wtll often be very useful to you tin 
programming, you should keep in mind that they eause the computer 
to make two or more tests -- and you want to avotd making two 
tests where one will do. 


Examine these two entries, one of which uses a compound condition, 
while the other does not. Determine what the difference is in 
the processing which the entries cause. 


LTT ie fui el oh Toop fool TTT TTT 5 
COT Holel Icloinitiel islutioln! bt lolol ool, TT 
a IT pas a Ss spe 


Ci! Iclolnirint Welult{foln! [rls| Ilo Iclelsis! [rilal[ {1 lool, lolo 


The entries produce the same end result, since "not less than" is 
the logical equivalent of "equal to or greater than". The second 
entry is preferable because it accomplishes the result by making 

one test instead of two. 
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EET Another kind of conditional sentence that is permitted in COBOL ts 


200 


(6/66) 


one containing "nested" IF statements. The general tdea of 
"nested" IFs ts that one or more IFs appear within a sentence that 
begins with IF. Thereby tt ts possible to make a series of 
dectstons based on the outcome of prevtous decisions, and to take 
different courses of actton, all wtthin one sentence. 


Reading assignment: Nested IF statements 


This sentence contains nested IFs. Study tt and tts flowchart. 
The flow lines on the chart should help you to see that the second 
deectston ts nested within the range of the first decision. 


COT irs efavilce “cold = llr jacaue tT TT 
ttt! TT laloio! |) 1 D ove aE 
—- LE GALL uf Me M 


"BIAIS! 


SERV ICE— 
CODE=27 


FALSE 


TRUE 
ADD 5.00 
TO AMOUNT-DUE 


FALSE 


TRUE 


MOVE 'BASE RATE’ 
TO LEGEND 


next sentence 
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203 
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The next 5 frames are based on the entry and flowchart printed in 
the prevtous frame. 


It is important to realize that the presence of a nested IF does 
not change the basic flow of control. Look at the first decision, 
and consider it to be just another IF sentence that does not 
contain ELSE or OTHERWISE. As will all such IF sentences, when 
the condition is "false", control goes to ‘ 


the next sentence 


does 


does - begin right after the semicolon. 


The next sentence 


does not (The next sentence begins after the period, and 
therefore is not shown.) 


If the first condition is "true", control proceeds to the next 
statement in sequence (ADD 5.00 to AMOUNT-DUE). After that, the 
next statement in sequence is ° 


IF CALL-TIME NOT > MINIMUM, MOVE 'BASE RATE! TO LEGEND 


Again, this statement is treated just like a simple IF statement 
that does not contain ELSE or OTHERWISE -- even though it is part 
of an IF sentence. If the condition is "true", the MOVE 
statement written after the test condition is carried out. If 
the condition is "false", control goes directly to ; 


the next sentence 


Especially important: The second condition is tested only if the 


first condition is found to be ‘ 
ee0@ 
true 
7\ 
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| 206. Don't make the mistake of thinking that nested IF statements are 
the same as a series of IF sentences. Below, side by side, are 
entries that are identical except for a single period. But 
observe the difference in the flow of control. 


MOVE NAME MOVE NAME 
TO REGISTER TO REGISTER 


MARRIED Saleciag MARRIED a 


TRUE TRUE 
MOVE 'M: MOVE 'M' 
TO STATUS TO STATUS 


MOVE ‘U' 
TO STATUS 


next sentence 


MOVE ‘U' 
TO STATUS 


next sentence 


In the statements on the left, the second condition-name test is 
made only if the first condition is "true". On the right, the 
second test is made (when?) ‘ 


regardless of whether the first condition is "true" or "false" 
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The preceding frame illustrates 
that the rule about IFs that contain 


ELSE applies to nested IFs. The rule 

is: When control comes to ELSE, it FALSE 
goes to the next sentence. Thus, if 

you want control to leave a nested 


sequence and to go the next sentence, 


Simply write ELSE, followed by ss 
whatever statements are to be carried 
out on a "false" condition. 

FALSE 
Naturally, with nested IFs there will Com 
be more than one “false" condition. 
The rule here is: Control flows to TRUE 
the statement after ELSE from the 
last previous "false" condition that ADD 1 TO 
has not already been paired with an VOTERS 
ELSE. This means that the ELSE 
statements for the first IF will 
come after the ELSE statements for 
the second IF. Ten 
The flowchart at the right 
illustrates this situation. It | ADD 1 TO 


represents nested IFs, with each NOT-REGISTERED 


IF having an ELSE statement. The 


ELSE statement for the first next sentence 


condition is , while the ELSE 
statement for the second condition 
is : 

e008 


ADD 1 to NOT-REGISTERED; ADD 1 TO NON-VOTERS | 


yal: On a program sheet, write the single IF sentence that corresponds 
to the flowchart in the preceding frame. (Assume that all names 
have been defined. The decisions are condition-name tests.) 
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At the right is the flowchart of 
another IF sentence. This one is 
slightly more complex than the one 
in the previous frame -- but it is 
just one IF sentence nonetheless. 


FALSE 


Y 


The flowchart represents the 
process of picking out the greatest TRUE 
of three numbers, A, B, and C. 

The three numbers have unequal values, 
for example, A might have a value of 
25; B might be 10; and C might be 50. 
The process would determine that C 

(in this case) has the greatest 

value, and would move the contents of 
C to an item named GREATEST. 


FALSE 


© 


TRUE 


MOVE A TO 
GREATEST 
Analyze the flowchart to assure 
yourself that the process will work. 
You might try different values of MOVE C TO 
A, B, and C, to make sure the GREATEST 
highest value is the one that will 
be moved. 


Then write the single IF statement 
that corresponds to the flowchart. 
FALSE 


erie 


TRUE 
MOVE B TO 
GREATEST 


MOVE C TO 
GREATEST 


next sentence 


OVIE 
ST 


Lisle! {ilF| Bl bt Ici! IMowel |p ir 
EUsle|,| Molvel ic! 
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If you got lost somewhere along the 
way tn our dtscusston of nested IFs, 
you may find tt reassuring to know 
that any dectstons made by nested 

IFs can also be made using common, 
ordinary, un-nested IFs. And some- 
times tt ts better to do exactly that. 


Nested IFs can become devilishly 
complicated. Such statements are 
almost tmposstble for a reader to 
understand, and even harder for 
another programmer to change when 
program matntenance becomes 
necessary. What's more, even the 
ortgitnal programmer ts bound to have 
trouble debugging them tf the results 
are not correct. 


In all fatrness to nested IFs, though, 
I think we should admit that 
complteated program logite rematns 
complicated whether or not the IFs 
are nested. To tillustrate thts, I 
have taken the problem you worked on 
tn the last frame (ftnding the 
greatest of three numbers), and 
written the solutton wtthout using 
nested IFs. The COBOL statements 
are printed below, and the flow of 
control through them ts shown by 

the ehart on the right. 
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MOVE A TO 
GREATEST 
MOVE C TO 
GREATEST 


next sentence 
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BIEN 4 good rule is: Keep your COBOL statements simple if you ean. 
But tf you can't make them stmple, document them completely -- wtth 
explanattons of the processing they do (posstbly NOTEs in the 
Procedure dtviston), and with flowcharts of the logte of the 
process. 
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LESSON 6 


PAPA in Lesson 5, you wrote IF statements without paying any special 
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attentton to the method by whieh condtttons are tested by the 
computer. Frankly, how the testing ts done tn most cases should 
not matter to you. Take the "elass test" for instance; you mtght 
specify that a certain item ts to be tested to see if tts data ts 
numerte. The test wtll be made and you wtll get "true" or "false" 
as your answer. That's all you need to know; you need not worry 
about how the eomputer was instructed to determine the answer. 


A major exceptton ts the "relation test", whieh compares the 
values of two data ttems to determine whether the first value ts 
greater than, equal to, or less than the second value. The 
compartson may be done in one of two rather different ways, 
depending on the types of data ttems that are compared. Two pairs 
of data items may contain prectsely the same data, but tf the ttem 
desertpttons are different, the results of comparing them may be 
exaetly oppostte! 


These faets make a strong case in favor of exploring how relatton 
tests are carried out. One more fact makes the case even 
stronger: ecompartsone of some ttems are not even allowed! It is 
these faetse about relatton tests that we will dtscuss in this 
lesson. 


eee 
For a start, read what the reference manual has to say on the 
subject. 
Reading asSignment: Relation test 
(including the table of permissible 


comparisons) 
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PIF 4 simplification of the table of valid moves helped us in 
Lesson 1. Here ts a stmilar table of valtd comparisons. As tin 
the earlier table, all numerie ttems have been combined, and 
figurative constants and sterling ttems have been omitted. 

A eheeckmark means the compartson ts valid, whtle a shaded box 
means the comparison ts not valid. 


VALID COMPARISONS 


Second Operand 


Elementary 


* Only whole numbers in external decimal code (BCD) 


mabe The entries in this table (unlike the table of moves) are 
symmetrical. That is, it really doesn't matter which item is the 
first operand and which is the second operand; if it is valid to 
compare A with B, it is also valid to compare B with A. Most 
combinations of items can validly be compared, such as an alpha- 
numeric item with an alphabetic item. Which combinations of 
items cannot validly be compared? 


It is not valid to compare (1) a report item with an alphabetic 
item, (2) a report item with a numeric item, and (3) an alphabetic 
item with a numeric item. 
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216) There is a good reason for not allowing these comparisons; report, 
alphabetic, and numeric items are by definition incompatible items. 


See if you can develop the reasoning for yourself. It will help 
to recall that: 


(a) Numeric items must contain but must not contain F 

(b) Alphabetic items must contain but must not contain 

(c) Report items must contain and may also contain , 
ee0 


(a) digits (but not) letters, special characters, or spaces 

(b) letters or spaces (but not) digits or special characters 

(c) special characters or spaces (and also) digits and certain 
letters 


VavA The tmportance of all of this for us ts twofold. First, don't 
try to write "forbidden" comparisons. The compiler analyzes the 
ptetures of ttems in relatton tests, and rejects any tnecompatible 
combtnattons. Second, recognize that computer comparisons are 
necessarily more restricted than compartsons that we personally 
can make. For example, we can see that $1.00 and 1v00 are equal 
values, but the computer ean't see tt that way. 


YAE:‘3 There are two types of comparisons: 


(1) Alphanumeric (sometimes called "non-numeric") 
(2) Numeric 


Our chart of comparisons, this time showing the types of 
comparisons, is printed at the top of the next page. The chart 
Shows that all comparisons are alphanumeric, except when an 
elementary is compared with an elementary item. 


numeric: numeric 
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A = Alphanumeric 


TYPES OF COMPARISONS _ 
N = Numeric 


Second Operand 


Elementary 


First Operand 


—e 


soca 


Elementary 
Alphabetic 


* Only whole numbers in external decimal code (BCD) 


219 Alphanumeric comparison. Alphanumeric comparison is done in the 
same way that you might put words into alphabetical order. Values 
are compared character by character, proceeding from to 


ee0e 
left; right 
ywwAee Comparing continues until two characters are found that are not 
the same, or until the ends of the items are reached. If two 
part numbers were being compared, and their values were 'AT9262' 


and 'AF8003', how many pairs of characters would the computer 
have to examine to know that the numbers are unequal? 


Just two pairs, first A:A, then T:F 
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Characters are compared on the basis of the EBCDIC (Extended 
Binary-Coded Decimal Interchange Code) collating sequence. There 
is nothing unusual about this sequence, despite its formidable 
name. 


Briefly, the collating sequence is as follows: (1) a blank space 
has the lowest value; (2) next lowest are the special characters; 
(3) then come the letters, A through Z -- A being lowest and Z 
being highest; (4) highest in value are the digits, 0 through 9. 


Special characters are rarely involved in data which is compared, 
So we will not concern ourselves with the order of value of 
Specific special characters. 


According to the sequence of values, which has the greater value: 
'22A675' or 'R19451'? 


22A675 (The digit 2 is greater than the letter R.) 


: less than 
ee0e 


less than (J is less than S.) 


equal to 
'"SMITHERS' is greater than 'SMITHMAN'. 
less than 


less than (Remember, the comparing proceeds character by 
character from left to right. In this case, the computer would 
find equal comparisons for the first five pairs of characters it 
examined. As the sixth pair, E and M would be compared; E is less 
than M, so 'SMITHERS' is the lesser value.) 
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B2Z¥ once in a while, you may find it necessary to compare items that 
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have different lengths. The rule is that the shorter item is 
thought of as being filled out with blanks to the length of the 
longer item. 


This rule is another way of saying that the comparison does not 
necessarily stop when the computer gets to the end of the shorter 
item. If all of the characters have been equal up to that point, 
the computer will look at the remaining characters -- if any -- 
in the longer item, and compare them with blanks. So, if the 
remaining positions of the longer item contain blanks, the items 
are equal; but if the remaining positions contain any characters, 
the longer item has the greater value. 


An example will make the point clearer. Suppose we are comparing 
customer names of unequal lengths. The value of one is 'KARLOV' 
and the value of the other is 'KARLOVSKY'. Right up to the end 

of the shorter item, all characters are equal. But the comparison 
does not stop there; it proceeds to look at the next position of 
the longer item, and compares the character in that position with 
a blank. The items, then, are treated as if their lengths were 
equal and the shorter value were filled out with blanks, like this: 


K A R L O V tt at 
assumed _ blanks 


y i i ' i t SK Y fill out shorter item 


In this way, 'KARLOVSKY' is found to be greater than, not equal 
to, 'KARLOV'. 


Let's try another example. What would be the result if 'MENDEZ' 
were compared with 'MENDEZbbbbbbbb'? 


These values are equal, since the shorter item is treated as if 
it too were filled out with blanks. 


Don't make the mistake of thinking that longer items are always 
greater except when they are filled out with blanks. 


equal to 
'SANDER' is greater than "SANDBLASTER'. Why? 
less than 


greater than, because E > B when the fifth pair of characters is 
compared 
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PX] Numeric comparison. Numeric comparison is done only when a 
item is compared with a item. 


numeric; numeric 


yw Differing usage of numeric items does not prevent a comparison of 
their values. 


This means that a binary item 


packed-decimal item. 


can 
cannot 


be compared with a 


can 


P2TJ When usages are different, however, the computer will be instructed 
to convert one item or the other to make the usages the same. So, 
when a binary and a packed-decimal item are compared, the binary 
item is converted to packed decimal before the comparing begins. 


This action is the same as the action of preparing data values for 
an arithmetic operation. Numeric comparison is the same as 
arithmetic in another respect: the computer can compare two 
packed-decimal numbers, or it can compare two binary numbers. 
Conversion is required whenever the usages of items are different, 
and whenever external-decimal items are compared. 


As you know, when the computer must convert data codes, tt takes 
addtttonal tnstructtons and more time to get the destred end 
result -- and we say that the object program is less efftetent. 
It should be qutte clear that the relative efftetency of the 
program depends matnly on the charactertsttes of the data 


artthmette betng processed -- and much less on the way a relatton 
test or an artthmette statement ts written tn the Procedure 
diviston. 


Two numbers are to be compared, and you are in a position to 
influence the data codes of the items which will contain the 
numbers. Which of the three choices listed below would you 
recommend for the most efficient comparison? Which would be the 
least efficient? Why? 


(a) Make both items packed decimal. 
(b) Make both items external decimal. 
(c) Make one item packed decimal, the other external decimal. 


Choice (a) is most efficient because no conversion is required. 
Choice (b) is least efficient because both items must be 
converted for a numeric comparison. 
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Here is another action that will remind you of how arithmetic 
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and numeric moves are done. The assumed decimal points of the 
values are aligned, and extra positions at either end of either 
value are filled out with zeros. The end result is that the 
sizes of the values are made the same. This action is done in 
work areas set up by the compiler. 


If the values to be compared are 009 and 9v000, alignment and 
zero~fill will make the values look like this when comparison 
begins: 


Of course, additional steps are used for such shifting and zero- 
filling. 


In the statement below, suppose that the picture of AMOUNT is 
S999V99; what change would you suggest making in the statement to 
make its execution more efficient? 


Change the literal to 500.00. That makes the literal the same 
Size as the data item, with the decimal points already aligned; 
therefore, no shifting or zero-filling is needed, and comparison 
can proceed at once. 


The way tn which the literal will be stored by the compiler will 
depend on the usage of AMOUNT. If AMOUNT tis a binary item, that's 
the way the literal wtll be stored. If AMOUNT tis packed decimal, 
the literal will be stored that way. The purpose, of course, ts 
to avotd unnecessary conversions. 


The actual comparison is based on two things: the sign of the 
number, and the magnitude of the number. Numbers that contain 
plus signs or no signs are considered "positive"; numbers that 
contain minus signs are "negative". The value zero is a special 
case -- zero has no magnitude and its sign, if any, is disregarded. 


greater than 


Therefore, the value -00v000 is } equal to tne value +0000v0. 
less than 


equal to 
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Pri You can think of numerte comparison as the process of locating a 
number's positton along an "algebraic" number scale ltke the one 
shown below. The number that tis higher on the scale has the 
greater value. 


increasing 0 decreasing 
value -1 value 


Naturally, the scale can be extended endlessly tin both dtrections, 
and fractional values ftt into thetr appropriate places between 
the whole numbers shown here. 


The scale shows that any positive number is greater than any 


greater i +20v08. 


negative number. Thus, -53v67 is 4) 7020 than 


less than 


yeye The greater the magnitude of a negative number, the lower its 


" 2 greater than(_ 
value on the scale. The value -4069v92 is A than lv25. 
eee 


less than 


yEKR The converse is true of positive numbers: the bigger they are, 


reater than 
the more they count. The value +4069v92 is aoa’ Chan +1v25. 
ee0e 


greater than 
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Programming considerations. When a number ts stored in external- 
decimal node (BCD), we have an option of defining the item as 
alphanumerie or numeric. In thts way, we are able to control the 
type of comparison that will be done with that number. In the 


next few frames, we will diseuss some techniques of handling such 
numbers tin comparisons; spectfically: 


(a) the advantage of defining external-decimal numbers as 
alphanumeric. 

(b) pitfalls to wateh out for when defining numbers tin this way. 

(coc) how to avoid unnecessary conversions when external-decimal 
numbers are defined as numeric. 


Suppose that an item whose usage is DISPLAY contains a number, 
such as 36255. Such an item can be described as either an 
alphanumeric item or a numfer,item. To make it an alphanumeric 


item, the item's picture must be - To make it a numeric 
item, the picture must be ° 
ee0@ 


X(5); 9(5) or S9(5) 


Notice the relation test in the above sentence. If the pictures 
of ACCOUNT-NUMBER and PREVIOUS~ACCOUNT=NUMBER are both 9(12), 
which type of comparison will occur. 


numeric comparison 


In the relation test shown in the previous frame, which type of 
comparison would have occurred if the picture of both items were 
X(12) ? 


alphanumeric comparison 


86 


System/360 COBOL COBOL Programming Techniques 


238 


239 


240 


241 


(6/66) 


External-decimal numbers are converted to packed decimal during 
[a numeric comparison] [an alphanumeric comparison]. 


a numeric comparison ONLY 


Which is the more efficient way to define a department number 
which will be used in relation tests? 


Description (2) is more efficient because it eliminates the need 
for conversion to packed decimal. 


There are a few pitfalls that you must avoid when you define 
numbers as alphanumertc itema. The worst pttfal extsts when the 
numbers are signed (+ or -). Let's see why stgned numbers can 
present problems in an alphanumerte comparison. 


It wtll help us to revtew how stgns are stored in external-dectimal 
ttems. A sign ts represented by zone bits in the rightmost byte 
of the ttem. The value +7593 ts tn effect stored ltke thts: 


2593 


The zone bite and the digit in the rightmost posttton are taken 
together, and treated as a letter or special character in an 
alphanumerte comparison. 


+ e e 
The value 75983 would be treated as 759C in an alphanumeric 
compartson. 


In a numeric comparison, the values 125 and +125 are equal. In 
an alphanumeric comparison, the same values are unequal because 


the rightmost character of the second value would be taken to be 
a letter (specifically, +125 would be regarded as 12E). 
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PZ In a numeric comparison, the sign is the first thing considered. 
Since an alphanumeric comparison proceeds character by character 
from left to right, the sign is the thing considered. 


last (Even so, it is not recognized as a sign, but as the zone 
bits of a character.) 


PZER If the values +236 and -435 were compared alphanumerically, 


+236 would be found to be / greater than | _43._ 
less than 


less than (The first pair of characters compared would show that 


244.) 


+ ze 
In external decimal code, "2" is the same as "B" and "2" is the 
same as "K". Accordingly, in an alphanumeric comparison, -912 


is ) Greater than) 4912, 
less than 


greater than (The values are compared as 91K and 91B; K>B.) 


The moral of the story ts that tt ts not wise to use an alpha- 
numertc compartson when the values are stgned numbers. Use a 
numerte comparison tnstead. However, defining numbers as altpha- 
numeric items will sttll work well tin the large number of cases 

tn which unsigned external-decimal numbers are tinvolved in 
comparisons; for example, part numbers, customer numbers, employee 
numbers, soctal security numbers, tnvotce numbers, etc. 


BE Another problem that arises in giving alphanumeric pictures to 
| numbers is that alphanumeric data cannot be edited. In order to 
move the data to a report item, it must be numeric. 


This problem is easily solved, by writing a second item description 


entry, this one containing a clause and a numeric PICTURE 
clause. 


REDEFINES 
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| 247 | All things considered, you may decide in a particular case to 


(6/66) 


define an external-decimal number as a numeric item only. Now 
you face the fact that the compiler will cause conversion to be 
done each time that item is used in relation tests, in arithmetic 
Operations, and possibly in moves. 


Such repeated conversion would make the program quite inefficient. 
In previous lessons, we discussed a technique by which repeated 
conversions can be prevented. Can you describe that technique? 


Move the data from the external-decimal item to an internal- 
decimal item (or to a binary item -- whichever is appropriate) in 
working storage. Thereafter, use the name of the working-storage 
item in relation tests, arithmetic operations, and moves. 
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LESSON 7 


BZEI still on the general subject of "decision making", we wtll now 
see how COBOL statements can be used to produce "program switches", 
Three different switching techniques will be explained. Along the 
way, you will be introduced to a new COBOL statement (ALTER) and 
a@ vartatton on an old COBOL statement (GO TO -=- DEPENDING ON). 


yz A “program switch" is a point in a process, at which there is a 
choice of alternate paths. The choice of the path to take is 
determined by an earlier action. 


On flowcharts, we generally show program switches as decision 
steps. 


program 
switch 


yelee Unlike ordinary decisions (condition tests), in a program switch 
there is a delay between the action that determines which path 
will be taken and the actual flow of control down the chosen path. 
It's similar to a switch on a railroad track -- the switch is set 
before the train gets to it. 
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yhym The main uses for program switches are (1) to create a "linkage" 
for subroutines, and (2) to "bypass" procedures at certain times 
while executing them at other times. The diagrams below 
illustrate these two uses. 


D 


subroutine 


procedure 

that is 
sometimes 
bypassed 


Notice the difference. The switch is located after the subroutine, 
to cause control to flow back to somewhere in the main routine. 

The switch is located before the procedure that is sometimes 
bypassed, to cause control to flow ° 


around the procedure when bypassing is desired 


yeym At times, one switch may serve both purposes. Here is an example 
of such a switch. Our problem is to execute some procedures in 
this sequence: (1)A, (2)B, (3)C, (4)D, (5)B, (6)E. To form this 
sequence of procedures, we could write procedure B in two places -- 
but suppose that B occupies quite a few bytes of storage, so that 
writing it twice is out of the question. We will write procedure 
B only once and create a linkage to it using a program switch. 
The flowchart on the next page illustrates this solution. 


To trace the flow of control, we start at A, then proceed to B. 
The switch must now permit control to flow down line 1 to C and 

D. No switch is shown after D -- but control must be made to flow 
along line 2 back to B; how can this be accomplished? 


By writing an unconditional branch statement at the end of 
procedure D -- GO TO B. 
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PER] After procedure B has been executed 
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for the second time, the switch must 
cause control to flow along line 3 
to procedure E. 


Let's review what this switch does. 

First, it provides the linkage 

which lets us use procedure B as a 

subroutine. It links to C after the 

first time through B, and links to E Be 
after the second time. 


Second, it causes control to 
procedures C and D after it leaves 


program 
procedure B the second time. 


switch 


bypass 


We have made the point that the 
switch must be set to the desired 


] 
oe 
path before control gets to the 


The switch must be set to line 3 
sometime before control goes through 
B for the second time, but sometime 
after control goes ° 


down line 1 (In practice, we would set 
the switch to line 3 by a statement in 
procedure D, just before we say GO TO B.) 


We may assume that this entire process is to be repeated more than 
once during the execution of the program. That being the case, we 
cannot leave the switch set to line 3. We must get it back to its 
line 1 setting; this might be done in procedure ;: 


A is probably the best choice -- this sets the switch to line l 
just before control goes through B for the first time. (E is 
another possibility.) 
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EEA switching technique 1. The "IF" switch. This type of switch 
employs COBOL statements that you already know well -- an IF 
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statement containing a relation test, plus a couple of MOVE 
statements. 


The operation of the switch depends on the contents of a one- 
position item which has been defined in working storage by an 
entry such as: 


crepemaumnsien west hE tte! + Seno pa et 22 NERS Tammany. spo Lee 


- ais Sa wa . tae: y = 2 — + ere ' 4 a eS . 
77  .Fwotcator FEE ede ene Se 


The switch tests whether this item has a certain value (for 
instance, 'R'); if so, a branch occurs to a specified procedure 
(in our case, the procedure name is E). Write an IF statement 
that will do this. 


a pacing niniaieniciemisne serene men = Pe AT eet GES RF ies a NE : 
: Zz 4 . ema its oon a g Pa) “5 3 24 aad 
(ey ENOSCATOCR = Te GO Te EF, 


Penne 


To set the switch so that it will cause the branch to E, we must 
get an 'R' into INDICATOR. Write a statement to do this. 


“enn, : 
een ater tii ge 


Nie i SS 


RCN Cit ae ee 


To allow control to flow to the next procedure in sequence 
(procedure C in our problem), the value of INDICATOR must be 
changed from 'R' to any other character or to a space. Write a 
statement to change the value to a space. 


een PE AER CREDO NO ELEM AIRE wee ERODE ANSON FER RISO TU TT 
eeeeseee poet eee eum ore: RO EES ne ES SSSR ag RAS Tay LOOT OI 


pace ree AETR I At ie rat a NAR MA AN DNR EES 
4 


eq ey af? ine rt + a a sc ae mA 
Move wate To JNOSHATCR. 


ee ee Serene 
WRT BERL RPG Ease caenge iy on, 


These three procedural sentences constitute the complete "switching 
mechanism", The only remaining question is, where should each of 
these sentences appear tn the overall process? Turn back to the 
flowchart on the preceding page, and dectde where each sentence 
should appear. Then check your solution with the one printed on 
the next page. 
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A 
MOVE SPACE TO INDICATOR, 


D 
MOVE'R' TO INDICATOR 
GO TO B. 
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Let's carry this type of switch one step further. Suppose that 
we want to go through our subroutine (procedure B) an additional 
time. You might imagine that in procedure M the need could arise 
to repeat the processing done in procedure B. This time, after B 
is executed, control should flow to procedure N. 


To do this, we will write a second IF sentence immediately after 
the one that presently constitutes the switch. The new IF 
sentence will test the contents of INDICATOR for a different 
value -- say, 'S', and cause a branch to N if that value exists. 
The switch is now made up of a series of two IF sentences: 


BRBRVGRN oN 07 9-0 BANCO ON A RR 
CTTW! tiivliclarton! SFist Ielol alo wel TT 


Now the switch is prepared for a new setting. In procedure M, we 
must do two things: (1) change the value of INDICATOR to 'S'; 
(2) cause a branch to procedure B. Write the statements that do 
these two things. 
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To cause the "IF" switeh to branch to sttll another procedure, we 
would just add another IF sentence to the series, and of course, 
another MOVE statement to put another value tnto INDICATOR. 


Enviston, however, how thts type of swtteh would appear tf the 
subroutine were used ten or twelve times in the course of a 
program. The series of IFs would occupy half the lines ona 
program sheet, and there would be as many MOVEs. Worse still, 
this method forces the computer to make several relation tests, 
all but one of which will be "false", each time it leaves the 
subroutine. Our ortginal problem required only one relation test, 
which didn't seem tneffictent; but the thought of a dozen relatton 
tests lined up tn a row ts enough to make you wonder, "Isn't there 
an easter way to do tt?" Well, there ts an easter way. 


Switching technique 2. The "ALTER/GO TO" switch. In this type, 
the switch is a GO TO sentence which is altered by specifying the 


name of the procedure that you want to proceed to. In the problem 
we have been working, you could alter the GO TO sentence to proceed 
to C, or to E, or to N -=- or to any number of other procedures. 


No matter how many procedures you will go to, the switch still 
consists of just a single GO TO sentence. An "ALTER/GO TO" switch 
might be diagrammed like this: 


Hoesen 
< switch 


In thts dtagram, I have tried to convey the idea that "any number 
ean play" ~~ that ts, you can make thts GO TO braneh to any one of 
countless procedures. 


ee0@ 
To change the setting of the switeh, you must write an ALTER 
statement. 


Reading assignment: ALTER statement 
GO TO statement, Option 1 
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P7ZE The first rule for this type of switch concerns the way in which 
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the GO TO is written. The GO TO must be the only statement in 
a ; 


ee0e 
paragraph 
must 
The paragraph < may have a paragraph header. 
must not 
ee0e 
must 


(1) \Oascict-i, GO Te @, 


BOTH are correct. In the spectal case of the "ALTER/GO TO" 
switeh, you are permitted to write a GO TO with no procedure name. 
The only requtrement ts that you must set the switch before 
control gets to tt during the execution of the process; that is, 
you must alter the switch to proceed to a specifie procedure 
before control gete to the switch. 


The second rule, then, is to write an ALTER statement. Write an 
ALTER statement which will cause the GO TO printed in the previous 
frame to branch to procedure E. 


eee 
( : AL { 2G. ENS Fe fi- ( Te d ROLCED C&é c ; 


In "ALTER/GO TO" switches, no data values are tested, so no 


working storage items are defined. This really is "an easter way 
to do iti" 
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BYE Printed below is the same problem we solved using an "IF" switch, 
modified slightly to reflect the fact that an "ALTER/GO TO" 
switch must always specify an unconditional branch to some 
procedure. (In other words, there is no "fall through" to the 
next sequenttal procedure; to get to C in thts problem, the GO TO 
must be altered to proceed to C.) 


Decide where the GO TO and ALTERs belong on the flowchart. Then 
turn the page to check your solutton. 


program 
switch 


2 a a 


En ee EE mam 
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A 
ALTER SWITCH-1 TO 
PROCEED TO C. 


"ALTER/GO TO" ts an efftetent type of program switch, largely 
because the computer ts not requtred to make any decistons in 
carrying tt out. The GO TO paragraph is converted to an 
uncondtttonal branch tnstructton by the ecomptler. From each 
ALTER statement, the compiler generates an instruction to change 
the address in the branch instruction. "ALTER/GO TO" ts the 
baste type of switching facility which tis built into the COBOL 
language; tt ts undoubtedly the type of switch you will employ 
most often in your programs. 
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Switching technique 3. The "GO TO/DEPENDING ON" switch. This 
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type of switch is similar to the "IF" switch in that branching is 
based on the value of a data item. The switch lists the names of 
procedures to which control may branch. If the value of the data 
item is 1, control will go to the first procedure named in the 
list; if the value is 2, control goes to the second named 
procedure; if 3, it goes to the third named procedure; etc. 


Any number of procedures can be named in the GO TO/DEPENDING ON 
statement. If the value of the data item is zero, or if it is 
greater than the number of named procedures, control automatically 
goes to the next sequential statement. | 


Here is how we will diagram this type of switch. This diagram 
also summarizes how control flows through the switch. 


GO TO 
DEPENDING ON 
test item 


Value of 
test item 
is either 
zero, or 
greater than 
number of 
named 
procedures 


(n) 


Values (P-n 


next sentence 


Reading assignment: GO TO statement, Option 2 
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BY24 4 GO TO/DEPENDING ON statement is the equivalent of a series of 
IF etatements, 80 once agatn you can see the close similarity to 
the "IF" switch you studted first. But it ts easter to wrtte than 
a sertes of IFs, and the inatructions generated by the compiler 
will be somewhat more efftetent than a sertes of relation tests 
would be. 


The test item on which branching depends must be 
[an elementary numeric item] [a group numeric item] 
[an elementary alphanumeric item] [a group alphanumeric item]. 


It cannot contain more than (how many?) digits. 


It must be a positive (or not signed) whole number, and its“usage 
may be ’ , or ° 


an elementary numeric item ONLY 

four 

COMPUTATIONAL (binary) ; COMPUTATIONAL-~3 (packed decimal) ; 
DISPLAY (external decimal -- BCD) 


Four digits will permtt a 9,999-way branch, which te enough for 
most of us. In fact, one or two dtgtts are generally adequate. 
COMPUTATIONAL usage gtves the most efficient action, followed 
elosely by COMPUTATIONAL=-3; DISPLAY usage calls for the most 
converting when the statement ts executed. 


ywyee Assume that a numeric item has been defined, and that it meets 
the requirements of the GO TO/DEPENDING ON statement. This series 
of IF statements is based on testing that item. Write the 
GO TO/DEPENDING ON statement which will cause the same branches 
as the series of IFs. 
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Ae the previous frame implies, the use of GO TO/DEPENDING ON is 
not Limited to program switching. It t8 a way of analyzing any 
code number and causing control to branch to procedures that 
correspond to various values of the number. 


In some cases, the code number is "made to order". For instance, 
if processing of input data is varied depending on the month in 
which a transaction occurred, and if the months are coded using 
the numbers 01 through 12, then we can easily specify that contro} 
is to GO TO twelve procedures DEPENDING ON MONTH. By the way, th- 
procedure names do not all have to be different; if the process:n. 
for March and April is the same, we can simply make the third anc 
fourth procedure names the same. 


At other times, it will be necessary to derive the value of the 
test item by means of some calculation. Suppose a program 
processes transactions for the years 1961 through 1966, ina 
different way for each year; the year in which the transaction 
took place is coded as 61, 62, etc., in the input record. What 
calculation would make the value of YEAR suitable to use as a 
test item in a GO TO/DEPENDING ON statement? 


SUBTRACT 60 FROM YEAR. (This makes the values of YEAR 01 
through 06.) 


yyy When GO TO/DEPENDING ON te used ae a program switch, it is 
necessary to set up an elementary numeric ttem in working storage 
to serve as the test ttem. To set the switch, change the value 
of the test ttem to a number corresponding to the destred branch. 


The test ttem value can be changed by moving in a new value, as 
we dtd wtth the "IF" switch. Another way of changing the value 
ts by adding digtts to the test ttem -- which would make the 
final value of the test ttem equal to the sum of a combination of 
values; thts method ts especially appropriate when the path to te 
taken at the switeh depends on a combination of actions taken ar 
separate potnts in a process, rather than on a single action. 


Say that two events, A and B may occur sometime during a proces. 
When we get to the swttech, we want to go in four different 
dtrecttons depending on whether both A and B, only A, omly B, or 
netther A nor B occurred. We can set the value of the test item 
to zero to begin wtth, add 1to it if A oceurs, and add 2 to it 
tf B occurs. When control reaches the switeh, the value of the 
test ttem will be zero tf neither event occurred, 1%tf only A 
occurred, 2 tf only B occurred, and 3 tf both events occurred. 
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BX this diagram shows the logie of the switching method discussed in 


(6/66) 


the preceding frame. WNottce that thts kind of appltcatton could 
not very well be done wtth an "ALTER/GO TO" switch -- there would 
be no potnt in altering the swttch when testing condition A, 
because you can't know tf conditton B will oceur later; and at 
condition B, how can you tell whether conditton A occurred? 
Adding to the value of the test ttem tn a "GO TO/DEPENDING ON" 
switch solves thte problem quite handily. 


MOVE ZERO 
TO STATUS 


TR 
CONDITION-A - | ADD 1TO STATUS 


TRUE 


CONDITION-B _ ADD 2 TO STATUS 


A,NOTB 
VALUE 1 
DEPENDING ON 
B,NOT A 
VALUE 
NEITHER A 
NOR B BOTH A 
VALUE O AND B 
VALUE 


next sentence 


104 


System/360 COBOL COBOL Programming Techniques 


277° Write the description of a working storage item named STATUS 
which could be used as the test item in the process diagrammed on 
the opposite page. 


BYZ] write the GO TO/DEPENDING ON statement which acts as a program 
switch in the diagram on the opposite page. 
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LESSON 8 


279 | Two of the matn uses of program switches are to create linkage to 
subroutines and to bypass procedures under certain conditions. 
These things can also be done by using the PERFORM verb. 


While tt ts simpler to write a PERFORM statement than to write a 
switch, tt ts a less effictent way to accomplish the result 

because more tnstructtons are generated in the object program. 

When you use PERFORM, you are "Letting George (the compiler) do 
tt", There ts a price to be patd in extra bytes of storage needed, 
because the comptler has to allow for every posstble event -- such 
as the possibility that whtle you are performing one subroutine, 
you might decide to go off and perform a second subroutine, and 
then come back to the ftret one. 


In addttton, as you will learn in this lesson, PERFORM can be used 
for operattons other than subroutine linkage. Most tmportantly, 
tt ean be used to control the number of times a loop ts executed. 


To sum up, PERFORM ts a convenient and versatile part of the 

COBOL language. It allows you to set up subroutines and to control 
Loops with a minimum of planning and writing. However, you ean 
achteve these same functions with program switches; "switching" 
takes more planning and more writting, but results in fewer object 
program instructions. 


it You have prevtously studied the format of the "simple" PERFORM. 


Before we look at the other opttons, let's review what you already 
know. 


Reading assignment: PERFORM statement (Option 1) 
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281 | Check your knowledge of how to apply the PERFORM statement. Take 
the problem we worked on in the preceding lesson: we have five 
procedures (A, B, C, D, and E) and we wish to execute procedure B 
twice. The desired order of execution is A-B-C-#-D-B-E. 


On a piece of scratch paper, draw a series of five boxes to 
represent these procedures. Then decide what PERFORM statement 
is needed to cause procedure B to be executed a second time, and 
where that statement should be written. 


In thts solution, I have written "PERFORM B" as the last statement 
tn procedure D. Instead, I might have inserted a new procedure, 
containing only the PERFORM statement, between procedures D and 

E. 
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The statement "PERFORM B" sets up a switch at the end of 
procedure B, as well as instructions to set and reset the switch 
appropriately, and to cause control to branch to procedure B. 

The PERFORM statement does everything that we did by using program 
switches in the last lesson. 


This diagram illustrates the location of the switch that is 
generated by the compiler. 


PROCEDURE 
TO BE PERFORMED 


When you "activate" a PERFORM, you must let control flow through 
the switch generated by the compiler. If you branch out of a 
procedure that is being performed, and fail to pass through the 
compiler's switch, you "mess up" the switch by not permitting it 
to be reset. This means that the IF sentence in the chart below is 


allowed ‘ 
not allowed 


K 
PERFORM M. 


IF AMOUNT IS 
ZERO, GO TOL. 


xtra rues 
recwesetnononnt ESN 


not allowed 
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Suppose that "PERFORM Q THRU S" is 
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being executed. This chart shows 
the flow of control when RESULT 
is negative. 


Q 


IF RESULT IS 
NEGATIVE ,GO TO S. 


Is the branch away from procedure 
Q permissible? 


Yes. In this case, control bypasses some statements that are 
within the "range" of the PERFORM statement, but the flow of 
control is satisfactory because it does pass through the switch 
instructions generated by the compiler. 


In this instance, the 
activated PERFORM 
statement is 
"PERFORM G THRU H". 

IF TOTAL >500, 
When TOTAL exceeds 500, GO TO X. 
the programmer wants 
control to flow outside 
the range of the PERFORM, 
to procedure X, and then 
to return to H. 


Can this be done? Also, where will the generated switch 
instructions appear? 


This can be done. Control will flow through the generated 
switch instructions, which will appear after procedure H. 


110 


System/360 COBOL COBOL Programming Techniques 


BEER In the situations shown in the laet two frames, control branched 
away from a procedure that was being performed, but then returned 
to execute more atatements within the range of the PERFORM and to 
flow through the switch instructtons. 


Imagine a slightly different situatton, however. Under certain 
etreumstances, you want to branch away from a procedure that is 
being performed, and to flow through the switch instructtone, 
without executing any more statements tn the range of the PERFORM. 
Suppose, for example, that you want to perform procedure P-1, but 
to leave P-1 and return to the statement after the PERFORM 
statement tf BALANCE ts negative. In order to do thts, you. must 
set up another paragraph (we'll call tt P-2) which contains a 
"dummy" statement. The "dummy" statement wtll perform no 
operatton, but tt will be followed by the swttch instructtons 
generated by the comptler. When BALANCE ta negative, branch to 
P-2; tn this way, no more real statements wtll be executed, and 
control wtll flow through the switeh as required. To get the 
switch tnetructtons to be generated after P-2, you need to write 
"PERFORM P-1 THRU P-2" instead of just "PERFORM P-1". 


This chart shows the flow of eontrol when BALANCE ts negative. 


P-1 


IF BALANCE IS 
NEGATIVE, GO TO P-2. 


P-2 
tt if 
dummy 
statement 


The "dummy" statement that ts used tn thts kind of sttuation ts 
EXIT. 


Reading assignment: EXIT statement 
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BPi74 an EXIT statement must appear in a separate , 
ee0o 
paragraph 
must 
Other statements may appear in the same paragraph. 
must not 
eee 
must not 


On a program sheet, write the paragraph that corresponds to this 
block: 


a P-2 tt 
dummy 
statement 


If you wrote more than thts, you wrote too much. Remember that 
the comptler generates the "switeh" instructions automatically 
when you write "PERFORM P-1 THRU P-2" elsewhere in the Procedure 
dtvtston. 
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289 | The three other formats of the PERFORM statement are used when tt 
| ts destred not only to set up a linkage to a routine, but also to 
control the number of successive times the routine ts executed. 
Usually, these formats apply when "looping" ts destred, that ts, 
when a process is to be repeated unttl a terminal condtttion 
prevatls. 


One of these formats lets you specetfy the number of times a 
procedure ts to be performed. 


Reading assignment: PERFORM statement (Option 2) 


yAtee There are few instances in which you need to specify a literal 
number of repetitions of a procedure, such as 2 or 10 or 25 times. 
But suppose you have a job in which you are printing shipping 
labels, and you want to produce exactly five labels for each 
customer. You have written a procedure named PRINT-~LABEL, which 
prints one label. What PERFORM statement would you write to get 
five labels? 


YVAE More often, you will want to repeat a procedure a certain number 
of times for one record, and a different number of times for 
another record, depending on the value of some data item in the 
record. 


Let's take such a case. Suppose that in processing late payments, 
a penalty is to be imposed, based on the number of days the 
payment is late, and compounded daily. For each payment, we may 
first figure out from the current date and the payment date, how 
many days it is late; let's assume that we have figured this out 
for a payment, and that the result is called DAYS-LATE. 


On a program sheet, write the entry that will cause a procedure 
called PENALTY-CALCULATION to be repeated a number of times equal 
to the value of DAYS-LATE. 
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BPA thie diagram shous Wen "TIMES" option of the PERFORM 
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statement works. It wtll be helpful to examine the diagram 
brtefly, and even more helpful to return to tt later to compare 
thts optton to the other opttons of PERFORM. In the dtagram, the 
term "number of ttmes" refers to the value of the data name or 
Literal that precedes the word TIMES in the PERFORM statement, and 
"eount" refers to a tally ttem set up by the compiler. 
(Inetdentally, thts dtagram and the others you will see later in 
thts lesson merely represent the chain of reasoning followed in 
executing PERFORM statements, and are not meant to show the exact 
sertes of tnstructtons generated by the compiler.) 


LOGIC DIAGRAM OF "PERFORM/TIMES'" STATEMENT 


MOVE ZERO, 
TO "COUNT 


PERFORM PROCEDURE 
ONE TIME 


Apt a 
TO "COUNT 


, COUNT’ = 
NUMBER OF 
TIMES. 


EVALUATE 
NUMBER OF 
TIMES 


POSITIVE 


ZERO OR 
NEGATIVE 


next sentence 
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1293, The logic diagram shows that ay pees re is not performed at 
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all if the "number of times" 


zero, negative 


Thts ts a very useful feature. It amounts to a sort of "automatic 
program swttch" which determines whether to perform or bypass the 
procedure. 


Also notice in the diagram that the value of "count" is increased 


before 


pe ae the procedure 18S 


and compared with "number of times" | 
performed. 


after 

Apply the logic diagram to the execution of the statement below. 
Suppose that the value of NUMBER-OF-MONTHS is 12. 

Inasmuch as "count" is increased and tested after each performance 


of the procedure, INTEREST-COMPUTATION will actually be performed 


12 times 
13 times 


[{elfeolah [irene stycoelTia 


11 times | 


CCULET | | NuMblelelrl-Mohtriis! friubdels 


12 times 
Shortly, you wtll learn that in the remaining two opttons of 


PERFORM, the conditton ts tested before the procedure is 
performed, whteh of course, will affect the number of performances. 
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PLY very often, we ead he. 
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keep repeattng a loop until we get a 
certain result or untad a certain econdttton prevatls - regardless 
of whether tt takes one or one hundred performances. Opttons 3 
and 4 of the PERFORM statement give us this type of loop control. 


Reading assignment: PERFORM statement (Option 3) 


Consider this example of a PERFORM/UNTIL statement. 


If the value of RESOURCE is 5000v00, will ALLOCATION be 
performed 5,000 times? 


Not necessarily. It all depends on how the value of RESOURCE is 
changed by the ALLOCATION procedure. Let's say that the value of 
RESOURCE is reduced by 1000 each time ALLOCATION is performed; in 
that event, the procedure will be performed five times. 


Look again at the PERFORM statement in the previous frame. What 
will happen if the original value of RESOURCE is 5000v00 and the 
value is not changed by the ALLOCATION procedure? 


The ALLOCATION procedure will be repeated endlessly. 


You can avoid the problem of the "endless loop" in a PERFORM/UNTIL 
statement by following this rule: 
must 
In the procedure to be performed, you may change 
must not 


the value of the data whose condition is tested ina 
PERFORM/UNTIL statement. 


must 
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300 LOGIC DIAGRAM OF "PERFORM /UNTIL" STATEMENT 


EVALUATE 
TEST-CONDITION 


PERFORM PROCEDURE 
ONE TIME 


next sentence 


<i} Note that the test-condition is evaluated before the procedure is 
performed. If the test-condition is true to begin with, the 
procedure will 


not be performed at all 


be performed only one time 
be repeated endlessly 


not be performed at all 


Ely Apply the logic of "PERFORM/UNTIL" to this case. You want to 
perform a certain process for each part number between 31 and 74, 
inclusive. To initialize the procedure, you move 31 to a control 
number. The last statement in the procedure to be performed 
increases the control number by l. You write the following 
PERFORM statement, but when you test your program you discover 
that only part numbers 31 through 73 are processed! Can you 
explain why you got this result, and what you can do to correct 


Control goes to the next statement as soon as the control number 
is found to equal 74, before PART-PROCESS can be performed for 
part number 74. You can correct this by changing the UNTIL 
Clause to either "...UNTIL CONTROL-NUMBER = 75" or 

",..-e UNTIL CONTROL-NUMBER >74". 
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So far, you have studted three options of the PERFORM statement: 
the simple PERFORM, PERFORM/TIMES, and PERFORM/UNTIL. The fourth 
optton, the "PERFORM/VARYING" statement, ts a ltttle more 
complicated. Actually, tt ts quite similar to "PERFORM/UNTIL" -- 
except that the PERFORM does more than test for a terminal 
econditton; tt also moves an intttal value to a data ttem and 
tnereases the value of the ttem by a speetfied amount each time 
the procedure ts performed. 


In the most complicated form of the PERFORM/VARYING statement, the 
values of three data ttems are tnittaltzed and tnereased, and 
three condittons are tested. In effect, we can have a loop within 
a loop within a loop. For the purposes of this course, we will 
study only the least complicated form of the statement -- tn which 
just one eonditton ts tested and one ttem tis tinittalized and 
tnereased. As you read the reference manual, therefore, skim 
Lightly over the paragraphs and flowcharts that pertatn to 
statements tn which more than one data item ts varied. 


Reading assignment: PERFORM statement (Option 4) 


ela One of the actions of the PERFORM/VARYING statement is to change 
the value of an item which we will call the "base item". This 
base item is usually involved in the processing done by the 
procedure that is being performed. In this statement, the base 
item is ; 


AGE (The name of the base item always follows the word VARYING.) 


cee Another action is to set the initial value of the base item. The 
initial value is specified in the FROM clause. What is the base 
item of this PERFORM statement, and what will be its initial value? 


The base item is VALUATION, and its initial value will be the 
value of SALVAGE. 
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Ef after the procedure has been performed, the value of the base 
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item is increased by a specified amount. Either the literal 
amount or the name of an item containing the amount is written 
after the word 


FROM 
VARYING 


ee0e 
BY 
The last clause of a PERFORM/VARYING statement is an UNTIL clause. 


Just as in a PERFORM/UNTIL statement, the word UNTIL is followed 
by a ° 


test-condition 


Here is the format of a PERFORM/VARYING statement. What should 
be written in place of each of the numbered boxes? (If you don't 
remember, look in the reference manual.) 


PERFORM VARYING FROM BY UNTIL 


(1) the name of the procedure that is to be performed 

(2) the name of the base item 

(3) the initial value of the base item -- either the literal 
value, or the name of the data item that contains the value 

(4) the amount by which the base item is to be increased each 
time the procedure is performed -- either the literal amount, 
or the name of data item that contains the amount 

(5) a condition which is tested to determine when to stop 
performing the procedure 
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LOGIC DIAGRAM OF A "PERFORM/VARYING' STATEMENT 


MOVE INITIAL VALUE 
TO BASE ITEM 


INCREASE VALUE 
OF BASE ITEM BY 
SPECIFIED AMOUNT 


EVALUATE 
TEST-CONDITION 


PERFORM PROCEDURE 
ONE TIME 


next sentence 


Executton of a PERFORM/VARYING statement begins with the setting 
of the tnitial value of the base ttem. Then the test-conditton 
ts evaluated before the procedure ts performed at all. After 
each performance of the procedure, the base ttem ts tnecreased, 
and then the conditton ts tested again. As soon as the condttion 
ts found to be true, control passes to the next statement after 
the PERFORM statement. 


This PERFORM statement will cause procedure Z to be executed 


9 times 
10 times ° 


ll times 


9 times (The value of A will be increased to 10 right after the 
ninth performance of the procedure; immediately the condition of 
A will be tested and found to be "true" so there will not be a 
tenth performance. ) 
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cag On a program sheet, rewrite the PERFORM statement in the previous 
frame so as to cause Z to be performed 10 times. 


The best solution is to use a PERFORM/TIMES statement instead of 
a PERFORM/VARYING statement. It is a misuse of PERFORM/VARYING 
to use the base item merely as a counter. 


If you chose to stick with PERFORM/VARYING, you might have 


corrected the statement in any one of these ways. All cause the 
same result. 


The value of X starts at 1 and is increased by 5 each time; 
therefore, it will never equal 45, and procedure B will be 
performed endlessly. The error is fairly obvious in this entry 
because tt uses X, or rather misuses X, as a counter, wtth 

literal values for the FROM, BY, and UNTIL amounts. The same 
error has a way of creeping in unnottced when these amounts are 
represented by data names. Careful checking is always necessary.) 
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LESSON 9 


We began Lesson 8 by saying that PERFORM statements were convenient 
and versatile -- but that thetr funetion could be accomplished by 
ustng other statements and other techniques whitch you had already 
studted. Ina way, that's like saying that you don't have to use 
an automobile because a horse and buggy will get you there just 
as well; but recall what our point was -- that using PERFORM will 
result tn a longer object program than using simpler statements to 
achteve the same end. The point becomes especially important when 
you are trying to squeeze a very large program into limited 
storage space. 


These same tdeas apply to our next subject, which ts another 
conventent and versatile feature of COBOL: "subseripting". 
Subsertpting makes tt easy to process data "tables" in storage. 
You wtll want to study the subsertipting capability closely, 
because tt enables you to handle your data in a rather different 
way. Instead of bringing tt into storage ptecemeal, you ean bring 
Large porttons of data tnto storage at one time, and treat them 

as data tables. Or instead of calculating certain results for 
each transactton record, you might store a table of pre-calculated 
values and simply locate the appropriate value when tt ts needed. 
Thus, subsertpting opens up a new dtmenston for solving problems 
with COBOL: the use of data tables. 


“ks Some definitions are in order. Here is what we mean by a "table" 
in COBOL: 


(1) A table is a series of data items of the same type. 


(2) All items in a table must have identical descriptions -- the 
same size, class, and usage. 


(3) The items in a table must be adjacent to each other; that is, 
they must form a contiguous set of items in storage. 


Keep in mind that an "item" is an area used to contain data -- or 

a "box" for data, if you will. Your mental picture of a table 
should be a string of boxes, all the same size, one box after 
another. To complete the picture, you can imagine that, in general, 


the boxes will all contain the same data values ; 
the boxes will contain different data values 


the boxes will contain different data values 
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EI The definition of "table" also implies that the size of the items, 
the number of items, and the kind of data they contain are 


determined by the programmer. 
standardized and must be the same in all COBOL programs. 


determined by the programmer 


The rule stated that all ttems in a table must be the same size, 
but what the sitze ts remains for the programmer to decide. Also, 
different tables may have dtfferent-sitze items and different 
numbers of ttems, and, of course, may contain different kinds of 
data. 


“ry The items in a table are not given unique, individual names. 
Instead, one name is assigned to the type of data item that is 
found in the table. In this book, we will refer to this name as 
the "type-name" of the items. 


For example, in a table of the names of the states in the U. S., 
the items might be given the type-name "STATE". There are fifty 
states, so there would be fifty items in the table, each item 
called STATE. The structure of such a table can be shown in this 
way: 


There are 50 
NATION STATE of these items 


in this table. 
All of them 
have the same 


7 type-name . 
STATE 


While each item in the table is called STATE, the table, as a 
whole, has another name, which is : 


NATION 
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EWPA rt should be clear that using the type-name by itself does not 
allow us to refer to a speetfie ttem in the table. Thus, tn the 
table of states, ustng the name STATE alone would leave the 
comptler scratching tts head, wondering "Which STATE are they 
talking about -- I've got fifty of them!" 


Subsertpting enables us to refer to speetfie ttems in a table. 
At thts potnt, get an tdea of what subscripts are, and how they 
are written. 


Reading assignment: Subscripting 


Eir:) To refer to an individual item in a table, the type-name must be 


preceded by 
followed by a subscript. 


followed by 


Er) The subscript indicates where the item appears in the table (first, 
second, third, etc.). A subscript can be either a data name or a 
literal. Either way, the subscript must represent a positive 
whole number whose value is no smaller than 1 and no larger than 
the number of items in the table. 


For the table of state names, the subscript could represent any 
number from to . 


eeu 


1, 50 


Err} Subscripts are written after the type-name, and are enclosed in 
parentheses. Notice how this is done. 


subscript 


leave a no spaces space 
space here here 
here 

e@0 


(6/66) 125 


System/360 COBOL COBOL Programming Techniques 


321 


322 | 


323 
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The example in the previous frame illustrates that subscripts are 
written in the [Procedure division] [Data division]. 


eee 
Procedure division ONLY 
If the value of a subscript is 1, it stands for the first item in 
the table; if it is 2, it stands for the second item, and so on. 
On a program sheet, use a literal subscript to move the name of 


the thirtieth state in our table of state names to an item called 
STATE-NAME. 


Most often, a data name is used as the subscript. A data-name 
subscript is used in the entry below. This entry will do exactly 
the same processing as the entry in the previous frame, when the 
value of STATE-NUMBER is 30. 


The advantage of using a data name as a subscript is that the 
value represented by a data name is variable, whereas the value of 
a literal is : 


constant 
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ERZ9 The value of a data-name subscript such as STATE-NUMBER might be 
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determined by the contents of an input record. For instance, a 
state number is punched in columns 37-38 of the input card 
printed below. 


Sree Per ee ee eta aay 


INVOICE | PRODUCT 
CUSTOMER “NAME © | customer . SALES cost GROSS 
OR CITY QUANTITY S| COMMISSION 
SSA AUET CHE SeRIRSAN NUMBER rem | AMOUNT | AMOUNT | — PROFI 


A 


|| BRANCH 
STATE 


SALES ANALYSIS 


co 


sceanacualnade saualss 


61 62163 64165 66 G7 GBIGS 70/71 72 73 14175 76177 78179 80 


6 


o 


The state numbers punched in this card can range from 01 to 50, 
with 01 being the code for Alabama, 02 for Alaska, and so on in 
alphabetical order, through 50 for Wyoming. The card contains 
only the number of the state; when we need the name of the state, 
we can move it from our table. 


The state number from the card can serve as the subscript when 
referring to the table of state names, 


provided that the table has been arranged in alphabetical 
order, so the number from the card corresponds to the 
place of that state in the table. 

regardless of the arrangement of the table, since data 
can be located at random once it has been read into 
core storage. 


provided that the table has been arranged in alphabetical order, 
so the number from the card corresponds to the place of that 
state in the table. 
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Err Here is how subscripting works. When you use a data name as a 
subscript, the compiler generates a special subroutine in the 
object program. During the execution of the object program, that 
subroutine computes the storage address of the required item, 
using the current value of the subscript. The System/360 uses 
binary addresses, so the address computation is done most 
efficiently when the usage of the subscript is COMPUTATIONAL. 


In our STATE-NUMBER example, the subscript comes from a card 
record, and so its usage is DISPLAY. You can guess that in cases 
like this, the special subroutine will also convert the data code 
of the subscript value to (what usage?) : 


COMPUTATIONAL (binary) 


E¥T3 When you use a literal as a subscript, the compiler develops the 
actual address of the table item during compilation. Therefore, 


the address } Wit] =, be computed again during the execution of 


the object program. 


will not 


“Y7@ You have learned enough about tables and subseripting to be able 
to write procedural entries that contatn subscripts to refer to 
tteme tn tables. Here ts a problem sttuatton that will let you 
test your ability to write such entries. 


Suppose that a company gives its customers quantity discounts that 
vary from 1/2% to 5%, depending on the size of the order. There 
are nine discount percentages, and their values have been stored 
in a table which is diagrammed at the top of the next page. 


Each customer order is assigned a rating number between 1 and 9. 
The rating number is the same as the place of the corresponding 
discount in the table. Thus, rating 1 is assigned to orders on 
which the discount is 1/2% (v0050); rating 3 corresponds to a 
discount of 1% (v0100); etc. 
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a table item 


=a 
DISCOUNT | value contained 
VOO75 in this item 


name of 


QUANTITY — 
entire table 


DISCOUNTS 


: 


DISCOUNT 
VOIOO 


On a program sheet, write a procedural statement to calculate 
DISCOUNT-AMOUNT by multiplying ORDER-AMOUNT by the appropriate 
discount. (The rating number is in an item called RATING. The 
discount name is shown in the diagram above.) 


You mtght also have written: MULTIPLY ORDER-AMOUNT BY DISCOUNT 
(RATING) GIVING DISCOUNT-AMOUNT. 


ky4:—3 When the table diagrammed in the preceding frame is put into 
storage, the items will actually contain [1] [2] [3] [4] digits. 


4 digits ONLY (All items in a table must be the same size, so tt 
ts not posstble to store v0075 for one ttem, and v05 for another 
ttem.) 
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True or false: 


In the discount problem, the computer is able to locate the 
discount that corresponds to a rating number because the numbers 
1 through 9 are actually stored in the table along with the 
discount amounts. 


False. The computer does not sean through the table looking for a 
dtscount that ts tdenttfied by a partteular number. Instead, tt 
uses the subscript to compute the exact location of the desired 
discount, and goes dtrectly there to obtain the data. Fach ttem 
tn the QUANTITY-DISCOUNT table contains only four digits as shown 
tn the dtagram, 


cKKiel Now that you have seen how to use subscripts to refer to an ttem 
tn a table, let's talk about how to set up tables. You are 
permitted to use subsertpts after a data name only tf tts item 
desertption entry contains an OCCURS clause. 


Reading assignment: OCCURS clause (Option 1) 


“Ki These two entries are all that is required to set up the 
QUANTITY-DISCOUNTS table we used in the discount problem. Note 
that the level-02 entry, which contains the OCCURS clause, 
defines a string of nine identical items. 


the table items? 


No. Setting up a table and filling tt with data are two separate 
constderattons. A little later we will discuss how to get data 
values tnto the table. 
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EEP9 you might have no need to refer to the discount table as a whole, 
using the name QUANTITY-DISCOUNTS. Still it is not correct to 
define the table as shown below. What rule does this entry 
violate? 


333 


334 
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An OCCURS clause must not be used in a level-01l entry. 


On a program sheet, write the entries that define a table called 
NATION which will contain the names of the fifty states. Allow 
fourteen positions for each STATE, to accommodate the longest 
state names (NORTH CAROLINA and SOUTH CAROLINA), even though this 
means there will be ten blanks in the items that contain the 
shortest state names (IOWA, OHIO, and UTAH). 


In the table of discounts and tn the table of states, we knew 
exactly how many ttems there would be. This enabled us to use 
Optton 1 of the OCCURS clause. However, tn some cases, the length 
of a table ts vartable. For example, part of an tnput record 
might be a table with one item for each transaction; if there had 
been five transactions, the table in that record would econtatn 
five items, but there might be 250 items in the table in another 
record tf there were that many transacttons. Such vartable length 
tables ean be handled tn COBOL, provided that there ts a data item 
whitch spectftes how many ttems are in the table each time. The 
name of thts data ttem must be written in an "OCCURS/DEPENDING ON" 
clause. 


Reading assignment: OCCURS clause (Option 2) 
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EEG Study this example of a variable length record and its record 
description. The record can contain information about several 
invoices. Since there may be a number of consecutive appearances 
of the INVOICE item, we can properly say that there is a table 
within the record. Also, because INVOICE has been described using 
an OCCURS clause, all references to INVOICE in the Procedure 
division must be subscripted. 


CUSTOMER- 
NUMBER 


CUS TOMER- 
NAME 


ACCOUNT — 
RECEIVABLE 


number of occurrences 

of these items 

corresponds to the value 

of NUMBER-OF-INVOICES 


According to the record description, INVOICE may appear 
no fewer than 25 times 
no more than 25 times in each record. 
as many as 99 times 


no more than 25 times 


The tnteger written tn an OCCURS/DEPENDING ON clause specifies 
the maxtmum number of occurrences. Even though the pteture of 
NUMBER-OF-INVOICES ts 99, the value of thts ttem wtll not exceed 
Zo. 
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EY In the record illustrated in the previous frame, INVOICE is 
subdivided into DATE and AMOUNT. These items are part of the 
table, and occur just as often as INVOICE does. The names "DATE" 
and “AMOUNT" are therefore type-names just as "INVOICE" is a 
type-name, and none of these names may be written in a procedure 
unless it is subscripted. 


The subscript of the group item, INVOICE, applies to the items in 
the group, DATE and AMOUNT. This is shown in the diagram below, 


in which the table contains three INVOICEs and literal subscripts 
are included after each item name. 


OIE Ta 
WORE 


Write an entry which subtracts PAYMENT from the AMOUNT of the 
second INVOICE. 
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EKy4 In practice, we would not want to use literal subscripts to 
process the tnvoitce data. After all, there may be as many as 25 
tnvotces in a record, and ustng literal subsertpts would involve 
writing 25 sets of processing statements. In place of this, we 
will define a working-storage ttem to serve as the subscript. 

We will set the value of thts ttem at 1 to process the first 
tnvotce data; then add 1 to the ttem to repeat the process for the 
second tnvotce; and so on, unttl tits value ts equal to the number 
of tnvotces tn the record. The program excerpts below show how 
thts might be done. Study them carefully. 


The objective of thts process ts to read a reeord and then to 
execute a loop (procedure 3/ as many times as there are tnvotrces 
tn the record. The loop might also have been controlled by a 
PERFORM/VARYING statement: PERFORM B, VARYING POINTER FROM 1 
BY 1, UNTIL POINTER > NUMBER-OF-INVOICES. 
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Each time a data-name subscript is used in the Procedure division, 
an address calculation will be called for in the object program. 
So, in the example on the preceding page, address calculation 
will be done twice, once for DATE (POINTER), and again for 

AMOUNT (POINTER). 


Naturally, we want to keep the number of address calculations to 
an absolute minimum. Usually, we can limit the number to one 


when we are processing a table. We can do this by using a 


technique that we have used before to eliminate other 
inefficiencies, such as extra data code conversions -- we will 
define a work area which can contain one entire table item. The 
processing of the data would actually be done from the work area, 
not from the table. 


The work area for our invoice problem could be defined in this 


Once the data for one invoice has been moved to the work area, 
subscripting is no longer needed to process the data. A subscript 
is used, in this case, only to locate the desired invoice data in 
the table and bring that data out to a work area. (There is an 
even greater advantage when the table item is subdivided into 

more than two smaller items. You can imagine a table item being 
subdivided into a dozen items; certainly in a case like that it 
would be much more efficient to use subscripting once to move the 
item to a work area, than to use subscripting a dozen times to 
process the data directly from the table.) 


On a program sheet, write the statement tht would be necessary 
to move the data for an INVOICE to the work area, INVOICE-DATA. 
The subscript item, POINTER, would still be defined and 
progressively increased as shown in the previous frame. 
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LESSON 10 


Eki) So far, we have brtefly diseussed: (1) what a table ts; (2) what 
subsertpts are and how they are written; (3) how tables are 
defined in the Data diviston; and (4) how they may be processed. 
Now, we will turn our attentton to the question of getting values 
tnto a table. There are two general ways of doting this: first, 
by defining the table in the File section and reading input data 
tnto tt; second, by defining the table in the Working-Storage 
sectton, and writing constant values for tt in the program. 


The ftrst way ts definttely required when the table ts part of the 
tnput record. Thts was true of the ACCOUNT-RECEIVABLE record 
whitch you just studted; when an tnput record was read, the values 
of the tnvotce dates and amounts were put into the table. There 
are several other reasons for treating table data as an input file. 
The data might be very tong, and brought into storage a segment 

at a time. It might be used by more than one program, and read 

tn from a direct access device or from magnette tape as tt was 
needed. Or the data might change frequently, and be kept ina 
file of punehed ecards to make updating easter. 


The second way -- writing the table values in the program itself 
-- ts normally used when the table ts not too long, and when tts 
values do not change very often. 


crite Suppose it has been decided to store the table data as one long 
record on a direct access device. To get that data into the 
computer, we will have to handle it like any other input file. 
This means we will have to [open the file] [read the file] 
[close the file]. 


ALL of these 


“am The file is called TABLE-FILE. Here are the entries that open 
and read the file. How many times will the read statement have 
to be executed in order to bring all of the table data into 
storage? 


Only once. The data has been stored as one long record, soa 
Single read will bring all of it into storage. 
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EZ?9 on a program sheet, write the entries that are needed to define 
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the table. The table as a whole is called TABLE; it consists of 
250 items whose type-name is TABLE-ELEMENT. Each item in the 
table is seven digits long, including two decimal places, and is 
stored in packed-decimal form. 


It may be heipful to see how these entries ftt tn with other 
program entries, such as tne SELECT entry tn the Envtronment 
dtvtston and the ftle desertption in the Data diviston. Keep tin 
mind that these program exeerpts are only concerned with getting 
the table data tnto the computer; other entrtes would be needed 
to process the data. 


Environment dtviston, Input-Output section, File-Control paragraph: 


Data dtviston, Fitle sectton: 
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EZZ] If the table data file contains more than one record, each record 


(6/66) 


must be read in turn into an input area, and then moved into its 
proper place in the table. Suppose that the data for a table is 
punched into 100 cards. The 80 characters punched in each card 
are the data for one item in the table. The input file, input 
record, and table have been defined in this way: 


The problem now is to read the card records, and to put the data 
from the first card into the first TABLE-ELEMENT, the data from 
the second card into the second TABLE-ELEMENT, and so on. See if 
you can solve this problem. Write the procedural entries to get 
the data from the TABLE-FILE into the TABLE; you may also need to 
write an additional data description entry in order to accomplish 
this. 


Probably the "natural" solutton to thts problem is to use 
subscripting when moving the data into the table. I have defined 
an additional working-storage item to serve as the subscript: 


Then I have tnereased the value of the ttem by 1 each time an 
input record is moved. In thts way, the first record ts moved to 
TABLE-ELEMENT (1), the second record to TABLE-ELEMENT (2), and 

80 ON: 
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EZE when a table is small and its values do not change very often, it 
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ean be written tn the Worktng-Storage sectton of the COBOL program 
and eonstant values can be defined for it. The table, with the 
values already tn tt, ts then an tntegral part of the object 
program, and ts loaded into storage along with the computer 
tnstructtons. (To change these values, you would merely alter 

the source program, and compile a new object program.) 


In order to set up thts kind of table, you must write two record 
deseripttons: 


(1) Frrst, desertbe a record and supply values for tt. 


(2) Then, deseribe a second record which redefines the first 
one; tn thts record desertption, name the table ttem and 
spectfy how many times tt occurs. 


Thts method must be followed because the rules of COBOL forbid a 
VALUE clause to appear tn an entry that contains an OCCURS clause. 
In fact, you aren't allowed to write a VALUE clause tn any entry 
that ts subordinate to an entry that contains an OCCURS clause, 
etther. So we must keep these clauses in separate record 
desertpttons, and by using a REDEFINES clause in the seeond record 
descrtptton, we will spectfy that the two descriptions apply to 
the same area of storage. 


Although you have used both the VALUE clause and the REDEFINES 
clause before, be sure to read what the reference manual has to 
say about them. 


Reading assignment: VALUE clause 
REDEFINES clause 
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EP?§ 412 of the "musts" and "may nots" in the reference manual ean 
become somewhat confusing, but the way itn whtch we wtll use these 
clauses ts really quite simple and straightforward. After we have 
written the entries to set up a table tn working storage, you may 
want to re-read the manual's rules to assure yourself that our 
method ts perfectly legal. 


This is the problem we will work on. We want a table of the names 
of the days of the week: SUNDAY, MONDAY, ... SATURDAY. The table 
item type-name is to be DAY, so that DAY (1) will refer to the 
value 'SUNDAY', DAY (2) to 'MONDAY', etc. 


But remember the approach that was described above. The first 
thing that we will do is not to describe this table, but rather 
to write an ordinary record description in which we will give the 
values of the data items. 


On a program sheet, write a description of a record named 
DAYS-OF-THE-WEEK. Define seven items within the record. We will 
not need any names for these items, so call each of them FILLER. 
Make each item nine characters long, and make their values the 
names of the days of the week beginning with Sunday. 


Immediately below the record description you have just written, 
write one that redefines DAYS-OF-THE-WEEK. Name it WEEK, and 
indicate that it is composed of the item DAY, which occurs seven 
times. DAY must be nine characters long. 
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ET The two record descriptions you have just written together qive 


349 


us the table we wanted. Take a moment to look back over your 
work to make sure you know how the record descriptions work 
together. 


Now use the same method to set up a table in working storage that 
contains the names of the twelve months, January through December. 


Call the first record "MONTH-NAMES" and the second record 
“TABLE-OF=-MONTHS". Make the table item type-name "MONTH". 
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By cotnetdence, the lengths of the longest month name and the 
Longest day name happen to be the same, so the pictures of the 
table ttems tn this table and the last one are both A(9). 
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ERY Our discussion of getting values into tables rounds out the 


351 
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subject. You have now seen how to define a table, how to ftll tt 
with values, and how to use subscripts to process tt. 


Needless to say, the subject has many other aspects. In fact, an 
enttre book might be devoted to tables and subseripting. Very 
briefly, we will look at two of these aspects: first, how to do 
table "Look up", and second, how to define tables within tables. 


Table "look up" is done by applying rules that you already know 
about tables. The need to look up information in a table arises 
when we don't know exactly where the desired data appears ~-- that 
is, when we don't know whether it is in the first item of the 
table, in the second, third, etc. The fact is that there are 
many cases in which an item's place in a table does not serve to 
identify it; in such cases, we have to examine the value of the 
data in an item in order to find out whether this is the item we 
want. 


To get the idea, suppose we have a table of employees' hourly 
wage rates, some of whose values might look like this: 


MAN-NUMBER WAGE~ RATE 
26725 2v250 
28224 3v125 
30096 1lv750 
30105 lv275 
36259 2v500 


As the payroll is prepared, we want to look up the wage rate that 
corresponds to each man number. For instance, when the time card 
for man number 30096 comes up, we want to find the table item for 
30096 and get the man's wage rate: $1.75 an hour. The table 
changes from time to time as employees are added and removed, so 
we cannot know what position man 30096 will occupy in the table. 


The solution to this problem is to go through the table, item by 
item, comparing man numbers until we find an equal comparison. 
To step our way through the table, we can use a subscript item; 
set its value at 1 to begin with, and use it to compare man 
numbers; increase its value progressively and make repeated 
comparisons until an equal condition occurs. 
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Here is one way in which the table of wage rates can be 
structured. The man number and wage rate for each employee are 
stored together in the table. In this example, there are 75 
employees on the payroll. 


PAYROLL EMPLOYEE (1) MAN-NUMBER (1 
WAGE-RATE (1) 


Which set of entries below corresponds to the record structure 
diagrammed above? 


(2) 


Record desertpttion (1) defines two tables, one containing a 
atring of 75 man numbers, the other containing a string of 75 
wage rates. The etructure of that record would be: | 


PAYROLL one | MAN—NUMBER (1) 


System/360 COBOL COBOL Programming Techniques 


Now that we have defined the 


payroll table, let's take it 

for granted that the table MOVE 1 TO 
would be filled with data by SUBSCRIPT 
one of the methods that you 

have studied. Our next problem 


is to program a table look-up 

which will look at one man 

number after another until an 

equal comparison is found. 

The flowchart excerpt on the 

right shows one way in which TRUE 

the look-up can be done. Just 

prior to this excerpt, the MOVE WAGE-RATE 
program has called for a time (SUBSCRIPT) TO 

card to be read. Then al is PROCESS-AREA 

moved into a working storage 

item called SUBSCRIPT; this 

puts us at the beginning of the 

table as we make our first 

comparison of a MAN-NUMBER 

from the table with the 

TIME-CARD-NUMBER. If the er rae 
comparison is equal we move the 

corresponding WAGE-RATE to a 
PROCESS-AREA. Otherwise, the 
subscript is increased by one, 


and control branches back to 
the comparison point. ADD 1 TO 
SUBSCRIPT 


Notice that this process checks 
to make sure the subscript does 
not exceed 75, which is the 
size of the table. If we have 
searched all 75 table items 
without finding an equal 
comparison, control branches 


to a CARD-ERROR procedure. ; 

CARD- 
Write the procedural entries 
that correspond to the steps 
in this flowchart. 


TIME-CARD-NUMBER 
=MAN-NUMBER 
(SUBSCRIPT) 


FALSE 


TRUE 


—~ next sentence 


The solution for this frame is 
printed at the top of the next 


page. 
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ERZ§ ve could devote a lot more time to exploring vartous ways of 
doting table look up tn COBOL, but I think that one exercise has 
been enough to give you a general tdea of how to go about tt. 
Stmilarly, we wtll take only a short look at our next topte: 
tables within tables. 


In COBOL, tt ts posstble to have another table within each table 
ttem; in fact, you ean have still another table wtthin that table. 
This enables us to process tables that have two or three 
"dimenstons", that is, tables in whteh the data ts broken down 
two or three ways. 


Re-read the reference manual information on Subsertipting, this 
time paytng particular attention to what ts satd about more than 


one level of subseripting. 
Reading assignment: Subscripting 


| (6/86) 146 


a 


System/360 COBOL COBOL Programming Techniques 


EEER we will study one example of a 
"multi-level" table, i Sie Monthly sales information 
tt ts defined and how "multi-level" about one product 
subsertpts are written. 


Suppose that your company wants to 
have a table of monthly sales 
figures for the last five years, 
for twenty different products. 

This really amounts to a string 

of 1,200 monthly sales totals 
grouped into 20 product categories, 
then divided into 5 yearly groups, 
and arranged in order by months 
within each year. The diagram at 
the right may help you to visualize 
what the string of items for one 
product will look like. 


First year 


Second year 


From the diagram, you can conclude 
that this particular table 


does 
does not 
contain a thirteenth item for each 


year which contains the yearly 
sales total. 


Third year 


does not 


<eEIe Each yearly group is simply made Fourth year 
up of (how many?) monthly- 
sales items. 


12 


“kya There are (how many?) Fifth year 
monthly~sales items for each 
product. 


INN 
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Ey In COBOL, our thinking must proceed from the largest to the 
smallest item; in planning our description of this record, 
therefore, we must begin with the record as a whole. fThis 
drawing suggests how we may think of the structure of this record 
and its progressive subdivision. 


YEARLY-SALES MONTHLY-SALES 


each group 


PRODUCT-SALES 


each group 


TOTAL-SALES 
subdivided 


into 20 subdivided subdivided 

product into 5 into |2 

groups yearly monthly 
groups items 


Here is the start of the record description. See if you can 
complete it. The elementary item, MONTHLY-SALES, consists of a 
Sign plus seven digits, including two decimal places, and is 


stored in packed-decimal format. 


Ps Reece 
| picture (sacshiveal, 


By having three OCCURS clauses in one record descriptton, we have 
created a three-level table. (Three levels of tables are the 
maxtmum permitted tn one record.) Each ttem of the ftrst table 
contains a second table, and each ttem of the second table 
contatns a third table. The tllustratton on the oppostte page 
shows how the total number of tables ts multtplted by having 
tables wtthin tables. Study the tllustratton for a moment before 
proceeding to the next frame. 
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Bocce 


SECOND -LEVEL 
TABLE 


There are 20 
of these tables 
in the record, 


one tn each 
PRODUCT-—SALES 
item. 


THIRD—- LEVEL 
TABLE 


There are lOO 
of these tables 


FIRST— LEVEL in the record, 
TABLE one in each 
YEARLY-SALES 


There is just 
one table like 
this in the 
TOTAL-SALES 
record. 


item. 
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As in the tables you studied before, subscripts are required when 


361 


362 
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you refer to items in a multi-level table. The problem of 
referring to an individual item in one of the tables is 
complicated a bit by the fact that there is actually a large 
number of tables in this record. 


For example, the computer would be confused if you referred to 
MONTHLY-SALES (7) or YEARLY-SALES (2), although it would have no 
trouble finding PRODUCT=SALES (10). Can you explain why? 


If you wrote MONTHLY-SALES (7), presumably you want the sales 
amount for the seventh month in one of the monthly sales tables -- 
but which table? We have seen that there are really a hundred of 
them. By the same token, it doesn't make sense to call for the 
second year's figures -- the second year for which product? 

On the other hand, there is only one product sales table, so 
PRODUCT-SALES (10) leads the computer directly to the tenth 
PRODUCT=-SALES group. 


Incidentally, if you wrote "MOVE PRODUCT-SALES (10) TO 
WORK-AREA", you would move a string of (how many?) monthly 
sales amounts. 


ee°0e 
60 
One subscript is sufficient to refer to an item in the first-level 
table. But you must use two subscripts after the name of an item 
in the second-level table, and three subscripts for an item in 
the third-level table. 
When two or three subscripts are written after a name, they are 
all written inside a single pair of parentheses and they are 
separated by commas. 
Which is correct: 


MONTHLY-SALES (PRODUCT, YEAR, MONTH) 


) MONTHLY-SALES (PRODUCT), (YEAR), (MONTH) 
(MONTHLY-SALES, PRODUCT, YEAR, MONTH) 


MONTHLY-SALES (PRODUCT, YEAR, MONTH) 
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Multiple subscripts are written in the same order as the table 
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levels were defined in the record description. Thus, the first 
subscript tells where the item may be found in the first-level 
table; the second subscript tells the item's location in the 
second-level table; and the third subscript tells its location in 
the third-level table. 


To address a YEARLY-SALES item in our sample table, the first 
subscript must indicate which product, and the second subscript 


must indicate which year you want. Therefore, YEARLY-SALES (3, 5) 
stands for 


the third year's sales amounts for the fifth product. 
the sales amounts for the third product in the fifth year. 


the sales amounts for the third product in the fifth year 


15] 
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EYZ¥ This drawing shows how certain items in our record would be 
referred to in procedures, if literal subscripts were used. The 
subscripting scheme is not hard to follow; you can think of it as 
adding another subscript for each additional table level. So (3) 
1s the subscript for the third product; (3, 2) are the subscripts 
for the third product, second year; and (3, 2, 4) are the 
subscripts for the third product, second year, fourth month. 


~ PRODUCT— 
__ SALES (1) 


PRODUCT— 
SALES (2) 


SALES (4). oe : Lae ae ee 


Ca et RI NT ie arr PL RO oe Ce ee a ad en CC CO 
SPAM MN MRR RIE RE Ene the cea 


1 MONTHLY— 
SALES (3,2,2) 


{MON THLY- 
|SALES (3,2,3) 


1MONTHLY— 
1SALES (3,2,4) 


SPT St Se oe an RC Ne Ne at et eet ae 


orate ete! 
eo eters 
epetesecs 


wr etetere 
Meteo to tate”, 
Ene ot ee ht ad 


DIC IO nr rarer mre meen 


"| MONTHLY— 
4SALES (3,2,12) 


You could get the sales amount for the seventh product, fourth 
year, tenth month by addressing [PRODUCT-SALES (7, 4, 10)] 
[YEARLY=SALES (7, 4, 10)] [MONTHLY-SALES (7, 4, 10)]. 


MONTHLY-SALES (7, 4, 10). You must use the type-name whtch has 
been defined for the table level from whitch you want an ttem., 
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eT oe) 
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In the event that you needed to process every monthly sales item 
in the table, you would define three subscript items in working 
storage, possibly calling them PRODUCT, YEAR, and MONTH. You 
would then refer to the table items as MONTHLY-SALES (PRODUCT, 
YEAR, MONTH). To begin with, you would make all of the subscripts 
equal to 1. Keeping the values of PRODUCT and YEAR at 1, you 
would progressively increase the value of MONTH by 1 until it 
reached 12. 


At this point, you would keep the value of PRODUCT at 1, but 


change the value of YEAR to , and change the value of MONTH 
to ° 

eee 
2; l 


After you had processed the amounts for every month of the five 
years for the first product, you would change the value of PRODUCT 
to , YEAR to , and MONTH to ° 


We needn't belabor the potnt. You ean see that the processing of 
multi-level tables ts a fatrly stratghtforward appltcation of the 
fundamental operations that you studted tn the earlter lessone of 
thts book -- moving data, adding numbers, and making decisions. 
For that matter, you have seen that defining and addressing 
multt-level tables does not tnvolve any new COBOL words; thie 
functton ts just another appltecattion of entries that you learned 
about a long ttme ago. 


IT am quite certain that most of your future work tn COBOL will 
constst of applytng famtltar prinetples to new sttuattons. In 
this sertes of short courses on COBOL, you have studted nearly all 
of the features of the language. Most important, you have learned 
the fundamentals whitch wtll make tt easy for you to understand and 
apply the addtttonal details which you may encounter tin reference 
manuals. 
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